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Présentation de la disquette 
ToolBox-Mag No 3 (G) 


Nous ne nous lasserons jamais de le rappeler, ToolBox Mag se lit GS 
en route: lisez la disquette! Voici son catalogue: 


oolBox-Ma ( 





puecteur de la 


fANIM.03/: ce catalogue contient les fichiers nécessaires à la présen- 
tation de ToolBox Mag, le magazine qui boote sur GS. N'y touchez 


pas. 

lA.LIRE/: les articles sur la disquette, en format Ascii étendu et en 
format AppleWorks-GS. A vous de les imprimer si besoin. 

* CONVSEC: un article de notre agent X27 sur une nouvelle fonction 
du Miscellaneous Toolset. 

* MAC.GS: un article de JYB à propos d'une polémique sur le LC, 

* VOCZ: un encadré de JYB à propos de la Video Overlay Card. 

+ WANTED: un courrier à deux voix (A. Bonnet et JYB) de sugges- 
tions aux programmeurs. 

IC.FACILE/: contient les ossements du “squelette C” de François Uh- 
rich. Voir les pages 4 à 8, et le fichier Lisez. Moi de ce catalogue. 
IDERNIERE.HEURE/: si Apple abandonne le Macintosh avant le 20 
Janvier 91, vous le saurez en lisant le Lisez. Moi de ce catalogue. 
/GOODIES/: ce dossier contient des programmes dont l'utilité nous 
semble un peu marginale ou exotique, mais qui tournent sur GS; 
nous n'avions pas de raison de refuser de les publier, et ils seront 
utiles à quelques-uns d'entre vous. (Attention, à la différence de ce 
qui se passe dans d'autres magazines, les “Goodies ToolBox Mag” 
sont des programmes ToolBox Mag, couverts comme les autres par 
notre inflexible Copyright). À chaque fois, un fichier Lisez.Moi four- 
nit les explications nécessaires. 

* CDA.LOAD: init d'Yvan Kœnig permettant de charger des CDA 
très, très, tôt. 

* MOUSETEXT.AWP: un programme, écrit par Didier Skutnik, de 
patches à Appleworks-8 version 3.0 française, et un fichier de ma- 
cros, pour y introduire les caractères Mousetext. 

* OTL: trois “2-Liners” en Applesoft pur jus par Pierre FPE LE 
chard. L'Arkanoïd 2 en deux lignes nous a bien amusés. 

lICONS/: icônes pour le Finder. 

JAQUETTES.K7/ et /JYB.FONTES/: voyez page 47 (].Y. Bourdin). 
IMAC.ERASER/: voyez page 28 (O0. Goguel). 

IMASTERMIND/: le jeu, et son source, de Raoul Barbieux. Voyez 
pages 29 et suivantes. 


| Conseil ‘de Rédactioh. 
ti añ-Pierre Charpentier 
Bérnard Fourier : a 
Olivier < Paul 

































| PGraphime - nie 


AT LE auteurs de 
:. ToolBox-Mag n° 
::. Olvier Bailly-Mañt 
2:11 Haoûl Barbieux 
He :: Jean-Yves Bourdin : 


IPLATINUM.PAINT/: illustration pour l'article d'Eric Weyland ||: 

pages 48/49. + us Cassalgne | 
IRESSOURCES/: le squelette de notre “ressourcier” Bernard Four- Patrick Desnoues : 
nier. Voir pages 37 et suivantes. | Bemard Fournier il il 





ÎTOOL219.V.1.1/: la nouvelle version du SoundTrack Tool d'Olivier 
Goguel, et presque tous les interfaces imaginables pour cet outil, par 
À. Cassaigne et Y. Kœænig. Voir page 42. 


. Ofvier Goguel 


Yvan Kænig: 
pepe Liautard 


/TRACEUR.NDA/: l'accessoire-espion de Patrick Desnoues, avec ses : Serge Mousseron 
ressources et librairies. Lisez (lentement et à tête reposée) l'encadré Pièrre Raynaud Richard | 
page 15. Didier Skutnik : 
IVIDEO.LIAUTARD/: illustrations de l'article sur le GS et la vidéo | François Uhrich | 

de J. Liautard pages 21 à 26. | Eric Hi 


Finder.Root est un fichier pour le Finder, PRODOS est un faux. 
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ToolBox Mag n°3 


EDITORIAL (G) 


La passion et le profit 


On n'y croyait plus: un magazine dédié aux amoureux de l'Apple II 
GS qui n'est pas le ‘fanzine’ d'un club, mais bel et bien un produit 
commercial d'une entreprise commerciale, c'est possible? 


En faire la preuve, telle est notre ambition. Les passionnés du GS ne 
sont pas des boy-scouts naïfs. Ils savent qu'une machine, aussi gé- 
niale soit-elle par elle-même, ne peut vivre que si ses utilisateurs en 
assurent le succès: et c'est en termes de bilan comptable, en termes 
de ‘gros sous’ que se mesure ce SUCCèS. 


Les réalités de l'industrie étant ce qu'elles sont, ToolBox Mag est un 


a || sacré “challenge”: il s'agit d'assurer le succès commercial d'un ma- 
|| gazine dédié aux utilisateurs d'un ordinateur, sans aucune rentrée 


publicitaire, et sans aucun soutien du constructeur. Défi plutôt iné- 
dit dans la presse informatique, vous en conviendrez! 


Utilisateurs de GS, vous n'êtes pas qu'une bande de joyeux loustics: 
vous êtes un marché. Le pari de ToolBox Mag (et de son éditeur, l'en- 
treprise qui a accepté de perdre de l'argent à coup sûr tout de suite pour en 


2: gagner peut-être ensuite, ToolBox), c'est de prouver que ce marché est 


rentable, et que si tant d'autres l'ont abandonné, c'est faute de faire 
les produits de qualité qu'attendent ses passionnés. 


Voilà pourquoi notre magazine porte, dans son nom même, la mar- 


|| que commerciale de l'entreprise ToolBox®, comme l'Apple II GS 


porte le nom de son constructeur, ou le Petit Larousse celui de son 
éditeur, C'est le nom de ceux qui ont osé le faire, qui ont osé 
prendre le GS au sérieux au plan commercial, comme ToolBox 
Mag, le prend au sérieux en tant qu'ordinateur personnel. 


Cela dit, si le profit était le premier souci de ToolBox Mag, ce serait 


es: || un magazine “comme les autres”, pour IBM et compatibles, ou pour 


Macintosh. On ne risque guère, en France aujourd'hui, de faire for- 
tune avec le GS! C'est donc une autre raison qui anime notre équipe 


|| de rédaction et de publication: la passion, le plaisir, bien sûr! Le 
À | profit, c'est simplement la condition pour continuer le plaisir. 


Pas étonnant donc que nous défendions nos droits et copyrights: s'il 
y à des magazines qui sont de purs supports publicitaires, qu'on 
nous payera peut-être un jour pour lire, ToolBox Mag n'est pas du 
nombre. Ceux qui le copient travaillent à couler le seul magazine 
français pour le GS, c'est aussi simple que cela. Nous ne les laisse- 
rons pas faire: nous aimons trop nos GS! 


Certes, la rentabilité, nous n'y sommes pas encore, vous le savez, et 
ce “‘satané Directeur” doit continuer à compter sou par sou. Mais 
nous nous en rapprochons, plus vite que nous ne le pensions. En 


Fi dernier ressort, ce seront nos clients, les utilisateurs de GS, qui déci- 
: || deront de la réussite ou de l'échec commercial de notre pari, comme 


d'ailleurs de l'avenir de leur machine. Nous avons confiance: vous 
aimez trop vos GS! 


ERIC WEYLAND 
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Aujourd'hui, nous allons entrer dans la Boîte à Outils 
avec le langage C. 


Tout cet article va décrire le squeletre d'un pro- 
gramme C de type desktop. Pourquoi le terme sque- 
lette? Tout simplement parce qu'à partir de ce pro- 
gramme minimal, vous pourrez écrire tous les vôtres 
en vous basant sur la même structure de départ. 


Comme d'habitude vous trouverez sur la disquette le 
source complet de ce programme, écrit de telle façon 
qu'il puisse être compilé indifféremment avec Or- 
ca/CTM ou APWC. Vous constaterez d'ailleurs le peu 
de différence entre les deux versions (lignes avec 
M, (ch 


Ce programme affiche uniquement une barre de me- 
nus comportant le menu Pomme, le menu Fichier et 
le menu Edition. Son seul intérêt pratique est qu'il 
permet l'utilisation des Accessoires de Bureau; son 
intérêt pédagogique est je crois plus élevé... 


Grâce à l'utilisation des ressources, le programme C 
est très bref, Commençons sa description détaillée. 


Les Includes 


Comme tous les programmes en C, quelle que soit la 
machine, notre squelette commence par des includes: 


#include 
#include 
#include 
#inciude 
#include 
#include 


<types.h> 
<locator.h> 
<memory.h> 
<miscrool.h> 
<quickdraw.h> 
<menu.h> 


NDIR: C du C, ça ? 


Vous qui n'aimez pas l'octal, vous chez qui le mot 
de “C” évoque galère, Unix, MS/Dos & C°, bref 
vous qui sautez allègrement d'habitude la rubrique 
de François Uhrich: S'il vous plaît, lisez celle-ci! 
Un squelette d'application desktop en C ressemble 
comme deux gouttes d'eau à un squelette en autre 
chose: c'est de la ToolBox GS avant tout. 

Ce C-là, ce “ToolBox-C”, n'est pas portable 
ailleurs, même pas sur Mac. C'est du GS 100%. 
C'est bon pour tout le monde. Allez, courage! 


JYB 
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C facile n°3 : 
dans la Boîte à Outils ! &::, 


François Uhrich 















un squelette 






















#Hinclude <desk.h> 
#include <resources.h> 


La commande préprocesseur #include <entete.h> in- 
clut le source C entete.h (h pour header) situé en 
2/OrcaCDefs pour Orca/C et 2/CIneclude pour 
APWC. Pour inclure un fichier au chemin d'accès 
quelconque au lieu de <>, il faut utiliser: 

#include "MonChemin”. 


Tous ces fichiers .h contiennent soit la définition des 
Structures et des fonctions contenues dans la librairie 
C (comme par exemple stdio.h), et plus ou moins 
communes à tous les compilateurs C sur toutes les 
machines, soit la définition des structures de données 
et des fonctions de chacun des Outils de la Toolbox 
(comme par exemple window.h)}, donc spécifiques au 
S. 


La difficulté réside dans le choix des en-têtes à in- 
clure: d'une part, s'il en manque, un message d'erreur 
vous sera retoumé par le compilateur (structure non 
définie) ou le linker (fonction non définie}; d'autre 
part, s'il y en a trop, alors le temps de compilation 
peut devenir bien long. 


La bonne méthode consiste à ajouter un en-tête dès 
qu'on utilise une structure où une fonction faisant 
partie d'un Outil: j'écris dans mon programme 
MMStartUp(), alors au début du programme j'ajoute 
#include <memory.h>. Cette méthode demande bien 
sûr une bonne connaissance de la Toolbox, mais avec 
les 3 volumes de référence de la Toolbox sous la 
mäin, on peut très bien se débrouiller. 


Je vous recommande de regarder ces en-têtes, car 
vous constaterez qu'ils sont écrits de façon à pouvoir 
s'inclure les uns les autres. Ainsi, au début de 


| Desk.h, on trouve: 


#ifndef __ TYPES 
#include <TYPES.h> 


à fendif 


#ifndef __ QUICKDRAW 


| “include <QUICKDRAW.h> 
+ “endif 

E #ifndef _ EVENT _ 
#include <EVENT. h> 

5 #endif 


| Hifndef _ DESK 
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#define __DESK réprocesseur), le compilateur remplacera dans le 
_ P P ue 

Ainsi la simple ligne #include <desk.h> entraînera res LS rer on pr EUR 
l'inclusion de Types.h, QuickDraw.h, Event.h si ces Rss É fs us Edit Menu sera remplacé. Dar 
derniers n'ont pas déjà été inclus. On peut donc opti- 5 anna É.0 q d Une Tout: ila P la p 
miser au maximum la liste des includes. v'é est RE GER pour IS CORRNQUE SN: 


leur 3. 
#Define Il s'agit d'un remplacement intelligent, car ces défini- 
tions peuvent devenir de véritables macro instruc- 
Après les #includes, voici les #define: tions. Si, pe SEAT a posé: 
. #define sum(a,b}) (a+b), 
tn ro PRES et si dans le programme, on à : x = sum(y,2); 
— le préprocesseur remplacera cette li ar: 
fdefine Quit Ttem 0x00000100 De P me 
#define About_Item 0x0000012D Je vous laisse imaginer la puissance que peuvent pro- 


curer ces macro instructions. 
Hdefine est une commande préprocesseur (comme 


toutes celles commençant par #) très puissante, car Dans notre programme, 3 est le numéro du menu 
clle permet la définition de constantes en leur affec- d'Edition, 255 (en hexadécimal OxFF) le numéro de 
tant une chaîne de caractères pouvant aussi bien com- l'article Fermer, 256 (0x100) le numéro de l'article 
prendre des nombres que du texte. Avant la compila- Quitier et 301 (0x12D) le numéro de l'article "A pro- 
tion proprement dite (d'où le terme de commande pos" tels qu'ils sont numérotés dans les ressources dé 


































Les fonctions C 


La déclaration d'une fonction commence par le type du résultat. Si ce type est void, alors c'est qu'il 
n'y a pas de résultat, ce qui correspond donc à une procédure pascalienne: void MaProcedure() 
Même si un résultat est prévu dans la déclaration, celui-ci peut être ignoré, ce qui revient au type 
void. 

Si le type n'est pas indiqué, alors par défaut le résultat sera un entier inf: int MaFonction() est équi- 
valent à MaFonction(). 


Suit le nom de la fonction et, entre parenthèses, ses arguments sont énumérés, avec, dans les lignes 
suivantes, le type de chacun des arguments, avant de commencer enfin le bloc d'instructions de la 
fonction: 

int MaFonction{arg1, arg2, arg3) 

int argl, arg3; 

long arg2; 


{* bloc d'instructions de MaFonction *! 
return(result}; 


} 


Pour retourner le résultat, l'instruction return doit être utilisée. 


Dans le source du programme étudié, vous pouvez constater ce qui peut paraître au départ une 
anomalie dans le passage des paramètres de la fonction Exec Menu. En effet, cette fonction est ap- 
pelée par l'instruction ExecMenu(tachewmTaskData) alors que sa déclaration indique deux argu- 
ments: 

ExecMenu(art, menu) 

int art,menu,; 

Un compilateur Pascal rencontrant une telle anomalie, déclencherait toutes ses sirènes 
d'alerte.…Tout s'explique par le fait qu'en C ce n'est pas le nombre de paramètres qui importe, 
mais la taille en octets des paramètres donnés. Ainsi le champ wmTaskDara de la structure tache 
est un long (quatre octets) et les deux arguments attendus sont deux entiers (chacun composé de 
deux octets) ! L'argument art aura donc pour valeur les deux premiers entiers de wmTaskDaia et 
l'argument menu les deux derniers. 


Voilà un exemple qui illustre une des plus importantes différences entre le C et le Pascal: le C est 
beaucoup moins rigoureux que le Pascal, mais c'est au programmeur de l'être un peu plus ! A mon 
avis, cela permet avec le C beaucoup plus de liberté, donc de puissance, qu'avec le Pascal. 


NDLR: s'il vous plaît, lecteurs, évitez le déluge de courrier à propos de cette dernière phrase. 
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ces menus. 
Les Variables Globales 


Les variables globales ont l'avantage d'être utilisables 
dans toutes les fonctions du programme, leur in- 
convénient majeur est qu'elles occupent donc de la 
mémoire durant toute l'exécution du programme. 
Pour celui qui nous concerne, il y en a très peu: 
Boolean fin; 

word  mylD; 

le booléen fin aura la valeur VRAI lorsque l'utilisa- 
teur aura sélectionné l'article Quitter du menu Fichier 
et l'entier my/D contiendra l'identificateur mémoire 
du programme tel qu'il est attribué par le Memory 
Manager, Les demandes d'allocations mémoire au 
Memory Manager devront toujours se faire avec cette 
valeur, voilà pourquoi elle est définie comme globale 
même si dans notre exemple elle n'est utilisée que 
dans la fonction main(). 


I y a enfin la chaîne de caractères compiler qui sera 
utilisée dans le “A propos” pour indiquer le compila- 
teur qui a été utilisé: soit “Orca/CM”", soit “APWC”, 


#ifdef __ORCAC__ 

char compiler{] = “"ORCAIC\252"; 
#else 

char compiler{] = “APWC"; 
#endif 


Je rappelle que __ ORCAC__ vaut 1 si le compilateur 
est Orca/CT" et O sinon. 


Ouverture de la Boîte à Outils 


Les variables locales (code, ToolRecRef, oldwin, 
tache) étant déclarées, le programme commence par 
l'ouverture des Outils. 


Le système doit en effet être averti qu'un programme 
veut utiliser tel ou tel Outil. Cet Outil doit être ouvert 
en début de programme et fermé à La fin, De plus un 
ordre strict d'ouverture et de fermeture (inverse du 
premier) doit être scrupuleusement respecté. Enfin 
certains de ces Outils nécessitent la réservation d'un 
espace mémoire de taille précise en banc mémoire 0. 


I fut un temps où toutes ces opérations nécessitaient 
plusieurs pages de programme. Heureusement, de- 
puis le système 5.0 sont apparues les fonctions Star- 
tUpTools et ShutDownTools qui permettent de ré- 
duire considérablement la consommation d'aspirine 
chez le programmeur ! 


myID = MMStartUp(); 
ToolRecRef=StartUpTools(mylD refIsResource,1L); 


Tout d'abord le Memory Manager est ouvert par 
MMStartUp qui retourne dans my/D l'identificateur 
mémoire de notre programme. 


Ensuite la fonction SrartUpTools est appelée avec 
comme premier paramètre my/D, qui sera utilisé 


Page 6 


pour l'allocation mémoire en banc 0. Le deuxième 
paramètre a pour seule utilité d'indiquer le type du 
troisième: celui-ci sera donc dans ce cas une res- 
source. 

De nombreuses nouvelles fonctions de la Toolbox 
(décrites en détail dans le volume 3 du Manuel de 
Référence) utilisent ce système de paramètre indica- 
teur. Il y a couramment trois valeurs possibles: 0 ou 
refisPointer, 1 ou reflsHandle et enfin 2 ou refis- 
Resource. 

Voici la ressource en question en langage REZ: 


resource rToolStartup (1, 80050) { 


$C080, { {! videoMode 
3,$0300,  !! Miscellaneous Tools 
4,$0301,  {{ QuickDraw I! 
5,$0302,  { Desk Manager 
6,$0300,  /{{ Event Manager 
11,$0200,  !! Integer Math 
14,$0301, 1! Window Manager 
15,$0301,  {! Menu Manager 
16,$0301,  !! Control Manager 
18,$0301,  !} QuickDraw II Aux. 
20,$0301,  !{ LineEdit Tools 
21,$0301,  {{ Dialog Manager 
22,$0300,  {{ Scrap Manager 
27,$0301,  l{ Font Manager 
30,$0100 {Resource Manager 

} 


1; 

À côté du numéro d'outil, l'entier en hexadécimal in- 
dique le numéro de version minimal de cet Qutil ac- 
ceptable pour pouvoir exécuter ce programme: 5, 
$0302 indique que le Desk Manager doit être au 
moins la version 3.02. 


Le résultat de SrartUpTools est un handle dans le cas 
où le troisième paramètre est une ressource où un 
handle, sinon il s'agit d'un pointeur. Ce résultat est à 
conserver, Car il sera utilisé au moment du SAut- 
DowxTools: 


ShutDownTools(refilsHandle ToolRecRef); 
MMShutDown(mylD); 


Création de la Barre de Menus 


SerSysBar(NewMenuBar2{reflsResource,lL.0L)); 
SetMenuBar(OL); 

FixAppleMenu(1 ): 

FixMenuBar(); 

DrawMenuBar(); 


NewMenuBar2 crée une barre de menus à partir, 
dans notre cas, de la ressource suivante: 


resource rMenuBar (1, 80000) { 


{ 

Apple Menu, 
File_ Menu, 
Edit Menu 

Î : 
3; 
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Voir le source en langage REZ, et l'article de B. 
Fournier dans ce même numéro de ToolBox Mag, 
pour détailler toutes les ressources rMenu et rMenul- 
tem utilisées dans cette barre de menus. Le menu n°1 
ou Apple_Menu est ainsi défini: 


resource rMenu (Apple Menu, $0000) { 


$0001, !! menulD 
$A008, H menuFlag 
Apple String, { 1! menuTitleRef 
About _Item 
}; 
} à 
Avec : 
resource rMenultem (About_Item, $0000) { 
$012D, {! itemlD 
de {! itemChar, itemAltChar 
NIL, {l itemCheck 
$8040, (litemFlag 
About String [ itemTitieRef 
} N 


SerSysBar permet de faire de cette nouvelle barre de 
menus, la barre système; SetWMenuBar(OL) indique 
que c'est la barre système qui est active; FixApple- 
Menu(l) ajoute à la barre active au menu n°1 (ici le 
menu Pomme) le menu des NDA; FixMenuBar ef- 
fectue les calculs sur les dimensions des menus; enfin 
(!) DrawMenuBar dessine cette barre à l'écran. 


Après la création de la barre de menus, certaines va- 
riables sont initialisées et le curseur flèche est affiché 
(car StartUpTools affiche le curseur montre): 


tache. wmTaskMask = Ox00IFFFFF; 
FlushEvents(everyEvent 0); 

oldwin = (GrafPortPtr)-1L; 

fin = FALSE; 

InitCursor(); 


La boucle des événements 


Nous entrons alors dans une boucle exécutée conti- 
nuellement tant que le booléen fin n'est pas VRAI: 
do { 


) while (!fin); 
IL s'agit là du cœur de tous les programmes desk- 
top: la boucle des événements. 


La boucle commence ici par la gestion des articles 
des menus actifs ou non. Dans notre cas plutôt réduit, 
les seuls articles susceptibles de changer d'état sont 
ceux du menu Edition (Annuler, Couper, Copier, 
Coller et Effacer) ainsi que l'article Fermer du menu 
Fichier. Tous ces articles ne seront actifs que dans un 
seul cas: si une fenêtre d'un NDA est au premier plan 
sur le desktop: 


if (oldwin != FrontWindow()) { 
oldwin = FrontWindowi); 
f{(oldwin!=NIL)&&GetSysWFlag{oldwin)) { 
SetMenuFlag(enableMenu Edit Menu); 
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EnableMItem(Close_ltem); 


} 

else { 
SetMenuFlag(disableMenu, Edit Menu); 
DisableMItem(Close_ Item); 


} 
HiliteMenu{FALSE, Edit Menu); 
} 


La variable oldwin (initialisée à -1) contient le poin- 
teur de la dernière fenêtre au premier plan, et la fonc- 
tion FrontWindow retoume le pointeur de la fenêtre 
actucllement au premier plan; si ces deux valeurs ne 
sont pas les mêmes, alors une nouvelle fenêtre a été 
ouverte (si la FrontWindow n'est pas nulle, car sinon 
cela signifie qu'il n'y a pas de fenêtre sur le desktop}. 


Si une fenêtre cest présente et qu'elle est du type sys- 
tème (appel à GerSysWFlag) alors il s'agit d'une fe- 
nêtre d'un NDA: le menu Edition est donc rendu ac- 
tif (SetMenuFlag) ainsi que l'article Fermer (Ena- 
bieMIltem). Dans les autres cas, ils sont rendus inac- 
tifs (SetMenuFlag 1 DisabieMItem). 


Enfin ces modifications sont prises en compte à l'affi- 
chage par un HiliteMenu sur le menu Edition (de 
préférence à un DrawMenuBar inconfortable pour 
l'œil de l'utilisateur, voir TechNote IIGS n°60). 


Nous arrivons enfin à la fonction majeure de la Boîte 
à Outils de l'Apple 1IGS, celle qui fait tout pour nous, 
lc magnifique TaskMaster. 


La merveille des merveilles: TaskMaster 


Expliquer en détail tout ce que fait 7askMaster occu- 
perait pratiquement toutes les pages de ce Toolbox 
Mag. Le Rédacteur en Chef étant un peu réticent (!), 
je vais tenter de résumer ce que fait la Bête: Task- 
Master fait TOUT sauf ce qui doit être fait par l'ap- 
plication courante ! (Merci La Palice...) 


code = TaskMaster(everyEvent &tache); 


Le premier paramètre est un entier indiquant à la 
fonction quels sont les événements dont elle doit 
s'occuper, dans notre cas OxFFFF ou everyEvent, 
donc de tous les événements: souris enfoncée ou relâ- 
chée, touche appuyée ou répétition, mise à jour d'une 
fenêtre. etc. 


Le deuxième paramètre est l'adresse (c'est à dire le 
pointeur) de la structure manipulée par TaskMaster 
qui contiendra des informations capitales pour l'ap- 
plication: fenêtre concernée par l'événement, contrôle 
dans lequel l'utilisateur a cliqué, touche appuyée, 
nombre de clic(s) pour savoir s'il y a eu un double ou 
même triple clic; au moment de l'événement les 
touches Control, Majuscule, Option et Commande 
étaient-elles enfoncées, quelle était la position de la 
souris... etc. 


Ainsi c'est TaskMaster qui fera tout le travail lorsque 
l'utilisateur sélectionnera un NDA, activera, déplace- 
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ra, fermera ou zoomera une fenêtre et bien d'autres 
choses ! 17 n'y a aucune ligne de programme à 
écrire, cela fait partie intégrante de la Boîûe à 
Outils ! Il est à remarquer que cette fabuleuse fonc- 
tion ne fait pas partie de la Boîte à Outils du Macin- 
tosh... 


TaskMaster retourne, dans l'entier code, le type d'ac- 
tions ou d'événements que l'application peut traiter: 
ainsi lorsque l'utilisateur sélectionnera un article dans 
un menu, TaskMaster retourmera soit le code 25 
(0x19) ou w/nSpecial s'il s'agit d'un des articles par- 
ticuliers du menu Edition, soit le code 17 (Ox11) ou 
winMenuBar dans tous les autres cas. Pour savoir 
quel est l'article sélectionné par l'utilisateur, il suffit 
d'aller regarder dans la structure tâche de type 
WmTaskRec ou EventRecord ainsi définie dans 
Event.h: 


struct EventRecord { 
Word what; /* event code *| 
LongWord message; /* event message */ 
LongWord when; /* ticks since startup */ 
Point where; /* mouse location *{ 
Word modifiers; /* modifier flags *} 
LongWord wmTaskData; !* *] 
LongWord wmTaskMask; !* */ 
LongWord wmLastClickTick;  */ 
Word wmClickCount; }* *{ 
LongWord wmTaskData2; F* *| 
LongWord wmTaskData}; f#  */ 
LongWord wmTaskDatad, + */ 
Point wmLastClickPt; #  #} 
} t 
Ainsi dans le cas d'un w/rMenuBar où winSpecial, 
on peut trouver dans le premier mot du champ 
wmTaskData le numéro de l'article sélectionné, et 
dans le deuxième mot de ce même champ le numéro 
du menu dans lequel a été sélectionné l'article. 


swich(code) { 
case winMenuBar : 
case wlnSpecial : ExecMenu(tache.wmTaskData); 
break; 
} 


Il suffit donc au programme de réagir suivant l'article 
sélectionné. Dans notre cas, c'est la fonction Exec- 
Menu qui réalise cela: 


ExecMenu(art menu) 
int art menu; 
char “sub; 
switch{art) { 
case Quit liem : fin=TRUE,; 
break; 
case Abour_ liem : sub = compiler, 
AlertWindow(4 &sub.1L); 
break; 


} 
if (art) HiliteMenu(FALSE menu); 
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Lorsque l'utilisateur sélectionnera l'article Quitter, le 
booléen fin deviendra VRAI, et donc la boucle des 
événements s'achèvera. 


Les Outils sont alors fermés par ShautDownTools 
puis MMShutDown; la fonction principale main se 
termine et le programme s'achève par un appel Quir 
de GS/OS qui a été ajouté au moment de l'édition de 
liens par la librairie d'Orca/C". 


J'espère que ce survol rapide de la programmation 
événementielle en € vous a été agréable et que nous 
vous retrouverons dans deux mois sur nos lignes C ! 


Switch 


L'instruction switch évalue l'expression entière 
donnée en argument et compare la valeur obtenue 
avec celle des différents cas (case) proposés. Si au- 
cun de ceux-ci ne correspond à la valeur alors, sil 
est présent, c'est le cas default qui sera pris en 
compte. Les cas doivent être soit des constantes en- 
tières ou de type caractère, soit une expression en- 
tière. 

Une fois qu'un cas a été sélectionné et que la sé- 
quence d'instructions correspondante a été exécutée, 
le programme exécute alors toutes les séquences 
suivantes jusqu'à ce qu'il rencontre l'instruction 
break. 

Cetie particularité implique que l'instruction switch 
n'est pas équivalente à une succession de if-then- 
cise sauf dans le cas où chaque séquence d'instruc- 
tions se termine par un break. 


switch(c) { 
case 0’: 
case ‘l': 
case 2°: 
case 7°: 
case 4°: 
case 5°: 
case 6°: 
case 7°: 
case 8°: 
case 9: 
prinfl"Chiffre : cn”,c), 
break, 


default : 
printft"Erreur: ce n'est pas un chiffre\n"); 
break; 


} 


Si le premier break n'était pas présent, les deux 
printf seraient exécutés quand le caractère © serail 
un Chiffre... Le deuxième break n'est pas indispen- 
sable puisqu'il n'y à pas d'autre séquence, mais c'est 
une bonne habitude à prendre: si dans une future 
modification du programme de nouveaux cas sont 
ajoutés à la fin, ce break évitera de mauvaises sur- 
prises… 





ToolBox Mag n° 3 












Voici un nouvel accessoire de bureau, que 
j'ai hésité à diffuser, car il prend pour prin- 
cipe la dérivation des vecteurs de GS/OS, ce 
qui pourrait éventuellement donner des 
idées néfastes à des bidouilleurs malinten- 
tionnés. Maïs il peut aussi donner de bonnes 
idées aux autres, en permettant d'améliorer 
GS/0O5. 


Il en va donc avec ce NDA Traceur comme 
avec toute connaissance: elle donne des 
armes pour le meilleur comme pour le pire. 
Mais justement, Toolbox-Mag a choisi de 
diffuser cette connaissance. Et comme Apple 
lui-même vient de publier une note techni- 
que concernant la revectorisation des outils 
(mais pas de GS/OS), on ne peut que se sen- 
tir incité à le faire. 


Précisément, la valeur pédagogique de cet 
accessoire est essentielle. En affichant en 
clair et en temps réel toutes les commandes 
du système d'exploitation GS/OS, il permet 
à tout instant à l'utilisateur de savoir ce qui 
se passe dans sa machine. 


A noter: cet accessoire contenant des res- 
sources, il ne peut fonctionner qu'avec une 
version du système égale au moins à la 5.0. 
Le fait que Traceur modifie les vecteurs de 
GS/OS peut évidemment entraîner des in- 
compatibilités avec des programmes qui uti- 
liseraient le même principe. 


Mode d'emploi du Traceur ((:) 


La mise en œuvre est très simple. Après 
avoir copié l'accessoire Traceur (qui se 
trouve en /ToolBoxMag03/  Tra- 
cœur.NDA/ NDA) dans le dossier */sys- 
tem/ desk.accs de votre disque système, re- 
lancez votre GS par la commande adéquate 
du Finder. Notez que Traceur est compa- 
tible avec le Fonte/DA Installateur du 


ToolBox Mag n°3 


Un accessoire espion : 
Traceur 


Patrick Desnoues (cc) 






Maître Uhrich, et peut en ce cas résider 
n'importe où, mais sur un disque qui restera 
en ligne (il a besoin de ses ressources). 







Après cette installation, il suffit de cliquer 
sur la Pomme des menus du Finder pour 
appeler le Traceur. 








Deux options sont alors disponibles: 






ww Mettre une pause: Non. Tous les appels au 
système seront alors affichés en temps réel. 
Particulièrement impressionnant sous le 
Finder ou le Standard File du 5.0 (tout spé- 
cialement celui du 5.03). 








æ Mettre une pause: Oui. Identique mais le 
système semblera tourner au ralenti, le ra- 
fraîchissement des fenêtres (sous Finder par 
exemple) ne s'effectuant qu'en appuyant un 
certain nombre de fois sur une touche du 
clavier, Une petite pomme à la droite de la 
ligne affichée signifie l'attente d'une touche. 











+ Pour activer le Traceur, il suffit de cliquer 
sur l'icône du milieu. Une fois le traceur ac- 
tivé, fermer la deuxième fenêtre active pour 
tout stopper. 








+ Pour le désactiver, fermer simplement 
l'accessoire. 






“ Avec certains programmes qui écrivent 
directement sur la page écran, la fenêtre du 
traceur peut disparaître. Il suffit d'appuyer 
sur la touche Option pour la redessiner. 








Pourquoi cet accessoire? Eh bien, j'étais très 
curieux de voir la méthode utilisée par le 
Finder pour reconnaître ses périphériques. 
Maintenant je sais ! En fait, cet accessoire 
permettra à tous ceux qui désirent utiliser 
des fonctions du système, de voir comment 
se décomposent les commandes. 


Exemple: GetEof fichier /Open 
/ Read fichier etc. 











fichier 








Page 9 


Notes sur le programme (5) 


Traceur est écrit avec l'assembleur Apw. 
Voici quelques notes sur les fichiers néces- 
saires pour le réassembler. 


Le fichier LK est là pour assembler et linker 
le fichier Linkall. 

Le fichier Linkall contient la liste des fichiers 
et equates. 

Le fichier MK permet de générer le fichier 
de macros. 

Le fichier RK permet de compiler les res- 
sources. 

Le fichier Main contient le module principal. 
Fichier InitTools: sans commentaire! 

Fichier Resource.S: sans commentaire. 


Les deux routines principales du Traceur se 
trouvent dans le fichier Main, après le com- 
mentaire “Partie vitale du programme”: 


AdMyRoutinel. Cette routine traite les ap- 
pels vers le vecteur $E1/00B0 dont les para- 
mètres d'entrée sont : 


Pushlong £AdresseParamètres 
Pushiword £Commande 

Jsl $E1/00B0 

Ceci est la méthode classique de GS/05. 


AdMyRoutine2. Cette routine traite les ap- 
pels vers le vecteur $E1/00A8 dont les para- 
mètres d'entrée sont : 


Jsl $E1/00 A8 

dc i2 Commande’ 

dc i4' AdresseParamètre" 

Ceci est la méthode classique de Prodos 16. 


A l'entrée des deux routines, il y a analyse 
de la commande, calcul de l'adresse de ses 
paramètres, sélection du critère le plus im- 
portant à afficher, puis l'affichage propre- 
ment dit. 


Je vous souhaite de fructueux espionnages. 


Reference: 
GS/O5 Reference Manual, d'Apple Compu- 
ter. 


VAASekéeet rte (C4 G 6 LRELELSEELEELSE 
! Partie vitale Au programme 


RÉRRTRNREN RS RNA RNA RAR RER RE ER À M Me À he eh À de de hd de de ù de de de 


AdMyRoutinel Ancp 
Omp >MyRoutineGsCs 
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nn rss nn nn nee msn 


Jer AdParamGsOS 


+: <HandleBontientmaintenant 
: l'adressedesparamètres 


Rout1neGs0s 


Léa AdCommande,s 
Sta <NumPFonction 
User SousProgB0F16 


Uer UpdatewWind2 


G£O8201F 
Gs0s2021 
Gs052022 
Gs062023 
6062026 
65052027 
Gs0s82028 
Gs95202À 
65022033 
Gs0s2034 
Gs0s2035 
Ge0s2036 
Ges0s52037 
Gs082038 
Gs082039 
Gs065203A 
Gs0s2032 
GsCs203C 
Gs0s203D 
GsOs203E 
Gs0s203F 


Create 


Gs082001 
Gs082002 
G30s2003 
Gs062004 


0 1 
: 0200 
PCount 


F1 <<< 
F1b 
de 4 
AncE * Inconnu 
Anop *“ Null 
AnNOP * GetSysPrefs 
ArnOD * Getlevel 
Anop * BeginSession 
Anop * ExiSession 
Ancp * SessionStatus 
Ancp * Inconnu 
Ancp * Inconnu 
ANCD * Inconnu 
Ànop *ResetCacheGs0s 
Ancp * GetName 
Anop * GetBootVolume 
Anop * GetVeraion 
Anop * Inconnu 
Anop ? AddNotifyProc 
Ancp ? DelNotifyProc 
Anop ? DRename 
Anop ? GetStiRefNum 
Anop 7? GetReftum 
Anop ? GetRelt Info 
Anop Sécurité 
Anop 
Ancs 
AnoD 
Anop 
Anop 
Stz NomFichier 
Rts 

FER CESR Er ren Croate ==" 
55626100 
Pointeur 
Anop Create 
ANCP Destroy 
AnOoC OsShutDowri 
An©p ChangePath 
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Gs0s2005 Anop SetFileInfo 
Gs082006 Anop GetFilelnfo 
Gs0$2008 Anop Volume 
Gs0s200R Anop ClearBackUp 
GsO0s200E äAnop ExpandPath 
Gs0s2020 Anop GetDevNumber 
Gs0s2024 Anop Format 
Gs082025 Anop EraseDisk 
Gs082029 Anop Quit 

Ly #2 

LGa [HandléB],Y 

Sta <Handle 

Iny 

Iny 

Léa ([HandleB],Y 

Sta <Handle:2 

Brl MoveTitre 
pnsnnnpmemnemmanme GRCFrOÉLXR, menemememmee— 
; DT Ar 


; Get Prefix : 0200 0800 55626100 
Ï PCount PrefNum Pointeur 


Gs08200A Ancp GetPrefix 
Gs0s200C Anop SetSysPrefs 
Gs0s2011 Anop NewLine 
Gs052012 Ancp Read 
Gs082013 Anop write 
Gs0s2014 Ancp Close 
GS062015 AnCp Flush 
Gs052017 Ancp GetMark 
Gs0s2019 Ancp GetEof 
Ge08201A Ancp SetLevel 
Gs0£201C AnoD GetDirEntry 
Gs06202E Ancp GetFstInfo 
Gs0s202C Anop Dino 
Gs0s2020 Arcp DStatus 
Gs0s202E Ancp DControl 
Gs0s52032 Ancp UnBindint 

Ldy #2 

Lda ([HardleB],Y 

Fha 
MovePref Anop 

PushLong #NumPref:3 

Pushworca #4 

_Int2Hex 

PushLong #NumPref 

PushLeng #NomFichier 

Pushlong #8 

_BlockMove 

RTS 
Re EE NE ÉD Sant 
î 0 1 2 ui AAA E 
; Open : 0200 0100 55626100 
; PCount RefNum PointeurNom 
Gsos2009 AnOD Set Prefix 
Gs0s2010 Anop 

Lay #4 

Lda (HandleB],* 

Sta <Handle 

Iny 

Iny 

Sta <Handle+2 
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EBrl Movelitre 
PSS SENS ES Set Mark 


; oi 29 M RÉMOARENT 
;: SetMark : 0200 0100 0000 00190000 
: PCount RefNum Base Displacemant 


Gs0s2016 Anop 
GsOs2018 Anop 
Läy 46 


Anop 

La [HandleB],Y 
Fha 

FushLong NNumBloc+3+4 
Fushword #4 

In 

Iry 

Léa [HandleB) ,Y 
Pha 

BushLong NNumBloc+3 
Pushword #4 
_Int2Hex 

_Int2Hex 


Pushlong #NumBloc 
PushLong #NomFichier 
FPushlong #13 
_BlockMove 


setMark 
$etEof 


MoveNumB1oc 


LA 2 3 
t 0600 9200 
: PCount RefNum Ruffer 


G808202F 
Gs0s2030 


4 S 6 7 £ a A B ARBRES A de 
00800200 00000000 00000009 
Buffer StartBlock 


LRead 
Ancp rite 
Läy #12 


Era MoveNumBlec 
jasssnnenimemenmen— Set Mark 


nanna 


: 02 00 01 00 00 00 DO 190 00 00 
IntCode 


; Bindint 
; PCount Intium vrr 


Gs082031 änop BindäInt 
Läy #4 

Lda (HanäleB] ,Y 

FPha 


EBrl MovePref 


ANOP 
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Jsr AdParamP1i6 
: <HandleBcontient maintenant 
: l'adresse des paramètres 


Läy #FonctPl6 
Läa [Handie],Y 
Sta <NumFonction 


Jsr SousProgBDOP16 
Jsr UpdateWind2 


e1a << 

PI1b 
RoutineP16 ds 4 
ee tata Table P16 -----—------- 
P160097 Anop * GetEntry 
P16000D Anop * Inconnu 
P16000F Ancp * Inconnu 
P16001B Anop * GetLevel 
P16001D Ancp + Inconnu 
P16001E Ancp * Inconnu 
P16001F Ancp * Inconnu 
F160026 Ancp * Inconnu 
P160027 Ancp * GetName 
F160028 Ancp * CetBootVolume 
P16002A AnOp * GetVersion 
P16002B Anop * Inconnu 
P16002D Anop * Inconnu 
P16002E Anop * Inconnu 
P16002F Anop * Inconnu 
P160030 Anop * Inconnu 
P160033 Anop Sécurité 
P160034 Anop 
P160035 Ancp 

Stz KomFichier 

Rts 
datant nn mn salade nl ÉxeateiPis: ss ses 
; Create (P16) : 55626100 
É Pointeur 
P160001 Anco CreaLe 
P160002 Anop Destroy 
P169003 Anop Fename 
P160004 Anop ChangePath 
P160005 Anop SetFileïnfo 
P160006 Anop GetFileifo 
FP160008 Anop volume 
P16000B Ancp ClearBackUpBit 
P16000C Arcp WriteProtect 
P16000E Ancp ExpandPath 
160020 Ancp GetDeviceNum 
P160024 Ancp Format 
P160025 Anop EraseDisk 
P160029 ànop Quit 

Läa [HandleB] 

Sta <Handle 

Lay #2 


Lda (HandleB],Y 
Sta <Handle+2 
Br1l MoveTitreP16 


Set Prefix P16 


o 1 SAPSADIE 


: SetPrefix (P16} : 0000 55626100 





P160069 


P160010 
P16002C 


: GetPrefix (P16) 


P16000à 
P160011 
P160012 
P160013 
P160014 
P160015 
P160017 
P160015 
P16001A 
P16001C 
P160021 
P160032 


À ju és de 0e nn ue 0e de om te 


: Set_Mark (P16) 


P160016 
P150018 


iReadBlock (P16} 


Fr 


P160022 
P160023 


Allocint {P16) 


.. + + 


P160031 


- Géèt prefix P16 


-- Read Block PLé 


Num Pointeur 


Anop SetPrefix 
Anop en 
Anop DInfo 

Läy #2 

Lôa (HandleB],Y 

Sta <Handle 

Iny 

Iny 


Läa [HandléeB]),Y 
Sta <Handle+2 
Bri NoveTitreP1ié 


nana 


: 0000 55626100 
Num Prefix 


Anop GetPrefix 
Anop NewLine 

Anop Read 

AnOP Write 

Anop Close 

Anop Flush 

Arop GétMark 

Anop GetEof 

AnOp SetLevel 

AnCP GetDirEntry 
ANOp GetLastDev 
AnOp Deallocinterrupt 
Läa (HanädleB) 

Fha 

Rrl MovePref 
= ASSRMRER ER roms 


0 1 nonnnanes 


: 0000 00000000 
Num Valeur 


Anop SetMark 
Anop SetEof 
Ldy #2 


Br1l MoveNumBloc 


RADAR R EE PE 


00 00 00 00 00 00 00 00 00 00 
DevNum DataBuffer Block Num 


Anop ReadBlock 
Anop WriteBlock 
Lay #6 


Erl MovellumBloc 
Allocinterrupt P16 


0 1 
: 0000 0200 
IntNum IntCode 


Anop 
Lay #2 
Lda [HandleB},Y 
Pha 

Br1i MovePref 


Affiche Résultat 


ANCP 
LongResult 


nnnr 


AllocInterrupt 


ToolBox Mag n° 3 


_GetPort 


PushLong <WiniTraceur 
_SetPort 


PugshLong #RectErase 
_EraseRect 


Pushword #5 
Pushword #9 

_MoveTo 

PushLong #AdresseDep 
_PrawString 


Pushword #295-4 
Pushwora #9 

_MoveTo 

PüshLong <NomFonct ion 
DrawString 

Lda Nomwichier 

EBeqg NoParamAux 
Fushword #5 

Pushword #0 

_Move 

PushLong #NomFichier 
_DrawString 





NoParamAux Anop 

PushLong #RectErase 
PushLong #RectErase3 
FushLong #2*4 
_BlockMove 


PushLong #RectErase3 
_ValidRect 


LGa <ValPause 
Bec NoFause 


Jsr Wait 


HoPause AnOop 


_Set Port 
RCS 
Boucle d'attente 


änop 

Pushword #625 
Pushword #9 
_MovéTo 

Pushword #Pommeouv 
_DrawChar 





Shortm 

Sta >Strobe 
Anop 

Lda >Kbd 
Bpl LoopWait 


Sta >Strobe 


Loopnait 


Loncgm 
PushLong #RectErase2 
_EraseRect 





Rts 


jm Création de la Table Ressources 


CalcMapRes Ancp 
LongResult 
Pushword #rPString 
_CountResources 
ToolBox Mag n°3 


Pla 
Flx 


LongResult 
LongResult 
Phx 

Fha 
PushLong #4 
_LongMul 
Pla 

P1x 

Fly 

Ply 


; Crée la cable index handle GS0$ 


NewHandieTR 
<IndexResGeOs +2 
<iIndexResGs0s 


fResCreate|-16 
NResCreate 
<HandleB+2 
<HandleB 


r <Vari 
LocnLoadResGs 


“HandleB 
HResCreate 
<NbResGsos 


: Calcule le début de 1a table pour F16 


+: IndexResGs0Os +<Var1 


Cle 

<IndexResGsOs 

c <Varl 

Sté <IndexResP16 
<IndexResGsDs +2 
Ac #0 
<IndexResP16+2 


NResCreateP16|-16 
tResCreaLePp16 
<HandleR+2 
<HandleB 


LoopLoaëResGs 
<HRandleB 


#ResCreateP16 


<NbResCsos 
<NbResGsos 


j=.. Détach Resource 


LoopLoadRkesGs 
LoadRes 
EndResGsOse 


<Var1 
(IndexResGsOs],Y 


[IndexResGsOs) ,Y 


Sty <Vari 
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Pushword #rPString 
PushLong <HandleB 
_DetachResource 
Inc <HandleB 

Bra LoopLoadResGs 


Pei <MyUserID 
î FEDCEAS876543210 
î cvs + 
Pushword ##1100000000001090 
Pushlong #0 
_Newkandle 
Pla 
P1x 
Ecc NewHanderef 
Rts 


PES Load Resource 


Anop 

LongResult : 
Pushword #rPString 
PushLong <HandleB 
_JcadResource 

Pla 

P1x 

Bcc NewHandDeref 
Rts 


Ancp 
Stx <Handle+2 
Sta <Handle 


Ldy #2 

Läa [Handie],Y 
Tax 

Lda ([Handie] 
Rts 


:-- Move Titre Gs0Os <Handle -> Nom de fichier 


MoveTitre Anop 
LAa {Handle] Longueur du nom 
inc <kandle Début du nom 

. (GsString) 


MoveTitreCom Anop 
Inc <Hanâle 


Cmp #49 
Bcc LongqueurMax 


Léa #49 


Anco 
Sta NomFichier 


PushLong <Handle 
PushLong #NomFichier+l 
Pushword #0 
Fha 
_BlockMove 
Rts 


;-- Move Titre F16 <Handle -> Nom de fichier -- 
MoveTitreP16 Ancp 


NewkHandDeref 


LonqgueurMax 


Longueur 
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Lda [Handle] 
And #$0OFF. 
Bra MoveTitreCom 


Calcul Nom de la fonction Gs0s --- 


NomFonctGs0s Anop 
; Sec 


Longueur du nom 


Cette partie 
est déjà faite 
La <NurFonct ion 

Sbc #Gs0sCreate 

Asl À *2 

Rsl À w4 

Tay 
Ldäa 
Tax 
Iny 
Iry 
Läa [IndexResGeoes],Y 
Stx <NonFonction 

Sta <NonFonction+2 
Rts 


fmmmmmn Calcul Nom de la fonction F18 --- 
AnQp 


=. = + 


(IndexResGsCs] ,Y 


<NumFonction 
#P16Create 

Asl À #2 
À *4 


[IndexResP16],Y 


{IndexResP16],Y 
<NomFonction 
<NomFonction+2 


a Branchement GsOs/P16 --- 
SousProgBOP16 Ancp 

COmp #GsOsCreate 

Bcc ConmandeP1é 


She #GsOsCreate 

Asl À 

Pha >> 
Jesr NomFonctGsCs 
Pix << 
JUsr (TableCarGsOs,X)} 
Rts 


Anop 

Sec 

Sbc f#PléCreate 

251 A 

Fha >> 
Jer NemFonctP16 
Pix << 
Jsr (TableComP16,X) 
Rts 


jm Calcul des paramètres de Gs0s 


Anop 
Jsr AdresseRecour 


LGa AdParam+2+2,s Adresse 
: des paramètres 


Commande P16 


ToolBox Mag n° 3 


Sta <HandleB+2 
Pha 

PushLong #AGrParm 
Pushword #2 
_Int2Hex 

Léa AdParam+2,s 
Sta <HandleB 

Pha 

PushLong #AGrParm2 
Pushword #4 
_Int2Hes 

Ets 


pren es Calcul des paramètres de F18 --—- 


AGParamP16 AnOD 
Jer AdresseRetour 


Läy flParamP16+2 Adresse 
Paramètre P16 

Léa [Handle],Y 

Sta <Hand1eB+2 

Pha 

PushLong #AdrParm 


Pushword #2 faut el vos à fiches Loue et de sie 
_Int2kex le eur. Aie ne 


LAy #ParamPlé 

Läa [Handle],Y 
Sta <HandleB 

Pha 

PushLong #AdrParm? 
Pushword #4 
_Int2Hex 

Rts 


a Calcul Adresse de retour ----------- 


AdresseRetour Anop 
Lda AdRetour+24242,s 
And #$00FF 
Sta <Handle+2 Uniquement ‘AVEZ NUS VI és pour: 1. 
i . RENF FES Je. fichie MAG A depuis le: ou 
D ccm ITOOLBO; in e TRS CRUIES Dr ri 
PushworG #2 î 
_Intz2Hex 
Läa AdRetour+2+2,8 
Dea 
Dea 
Dea 
Sta <Hanâle 
Pha 
PushLong #AdrRetz 
Pushword #4 





TableComGsCs Ancp 
dc i'Gs0s2001" Create 
[Voir table complète dans le fichier disque] 
dc i'GsO0s203F' 


TableComP16 AncD 
de i‘P160001 Create 
[Voir table complète dans le fichier disque) 
dc i'P160035" Sécurité 
END 


Lhhithhhétiahhttrhhtétrhéthhtihhhehtrakihhtthahk 
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On ne peut rien cacher à un Rédacteur en Chef qui lit 
articles, programmes et courrier (et encore moins à 
une maquettiste - merci Dominique) de ses mau- 
vaises habitudes en matière de rédaction (surtout 
quand il a lui-même tant de mal à s'en libérer: 
ToolBox Mag est parsemé des ‘fautes” que je relève- 
rai ici). 


Je ne parle pas d'orthographe ou de français, mais de 
nos mauvaises habitudes informatiques, prises sur 
l'Apple IL Avec le GS, ordinateur graphique, et ses 
fontes proportionnelles, avec l'accès à toutes sortes 
d'imprimantes, il nous faut changer d'habitudes: il 
faut “jeter AppleWorks 8”. 


Jeter AppleWorks 8 


Il est temps aujourd'hui de cesser d'utiliser des pro- 
grammes non conformes aux standards GS: aussi 
bien, donc, GS Write que Gribouille, Que Madame 
Hodé me pardonne, mais ses arguments, pertinents 
en leur temps, contre l'utilisation des outils GS, ne 
sont plus de mise avec le niveau de maturité atteint 
aujourd'hui par le GS et ses systèmes. 


Rédiger sur GS, c'est aujourd'hui, obligatoirement, 
utiliser les fontes GS: le mode texte n'est plus bon 
que pour les brouillons. Nous voyons déjà poindre 
l'étape suivante: l'utilisation d'effets PostScript dans 
la rédaction. 


Je ne dis pas cela pour faire l'éloge de tel ou tel logi- 
ciel en particulier, comme AppleWorks GS, Beagle- 
Write ou Graphic Writer III: c'est d'abord d'Apple 
que je fais l'éloge. L'outil TextEdit de son système 
permet aujourd'hui à de simples (et petits) acces- 
soires de bureau de faire du traitement de textes en 
couleurs, avec les fontes GS et leurs effets, à coût très 
faible aussi bien financièrement que du point de vue 
de l'encombrement disque, ou de l'occupation mé- 
moire. TextEdit périme AppleWorks 8 (même avec 
SuperFonts), il périme Gribouille, c'est ainsi. 


Lecteurs, excusez-moi d'insister un peu: on ne peut 
pas conserver “provisoirement” nos vieux pro- 
grammes: car ils produisent des fichiers qui, au ni- 
veau même des données en Ascii brut, sont incom- 
patibles avec les fichiers GS/Mac. Quand j'ai publié 
dans Pom's une macro pour la conversion des fichiers 
traitement de texte AppleWorks 8 comme “cadeau 
d'adieu”, il s'agissait simultanément d'un adieu à 
Pom's et d'un adieu à AppleWorks 8... Il n'est plus 
acceptable, pour un utilisateur de GS, de lire sur 
l'écran (et dans le fichier lui-même) « a » pour « â », 
et de ne pouvoir écrire « {é} » ou « V2£ [I » qu'avec 
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Riches, et contents ! 


(petit vade-mecum du rédacteur GS) 
J.Y. Bourdin (t) 


les «<X2>Züu<X3>b%<X1>» déments de SuperFonts. 


Bien, mais cesser d'utiliser des logiciels périmés ne 
suffit pas. Il faut encore apprendre le nouveau cla- 
vier, puisque nous avons désormais 128 caractères de 
plus à notre disposition! 


Les deux claviers 


L'essentiel de cet article est écrit pour présenter le ta- 
bleau des codes Ascii et de leur accès par le clavier 
du GS tel que nous les offrent les fontes GS, d'une 
part, le choix “Translation: Français" du GS/OS 5.02 
français d'Apple d'autre part, et enfin la reconfigura- 
tion que nous propose Yvan Kœnig pour le 5.02 fran- 
çais (celle qu'on obtient avec les fichiers Frinit et 
Sys.Resources de la disquette ToolBox Mag 2, catalo- 
gue /Derniere. Heure). 


Pourquoi préférer la configuration Kænig à celle 
d'Apple? Il y a au moins deux raisons: d'une part, 
TextEdit n'accepte pas les combinaisons incluant la 
touche Control, Il y a donc certains caractères qui 
sont inaccessibles sous l'éditeur de TML Pascal II, par 
exemple, avec la configuration Apple. 


D'autre part, le principe de la touche morte (l'accent, 
puis la lettre), qui est étendu par Yvan Kænig aux 
majuscules accentuées, est beaucoup plus normal et 
évident pour un français. La configuration d'Apple a 
été concoctée pour nous. en Californie, et ce genre 
de choses se fait beaucoup mieux sur place, près des 
utilisateurs réels. 


[Test À noter qu'il y aurait une bonne raison de reprendre comt- 
plètement cette configuration sur Mac: les Macs jusqu'au Mac 
Plus inclus n'ont pas de touche Control sur leur clavier, ce qui 
leur interdit purement et simplement l'accès par le clavier à cer- 
tains de ces caractères (à partir du 248 par exemple). Autrement 
dit, des centaines de milliers d'utilisateurs de Macintosh ant ac- 
ceplé sans rien dire, pendant des années, de n'avoir aucun accès 
du tout par le clavier À certains codes Ascii, “Faîtes du copier- 
coller", leur disait-on, ét ils cliquaient fièrement sur leurs souris! 
Si vous vous demandez st nous n'y allons pas urt peu fort, 
utilisateurs de GS, à tant rouspéter, regardez ce qui se passe chez 
ceux que ne rouspètent pas] 


Laser: le bug 


Si vous utilisez une LaserWriter, vous vous aperce- 
vrez que le driver Laser Writer Apple est affecté d'un 
bug gènant: 16 caractères (ceux qui apparaissent en 
grisé dans le tableau pages 18/19, dont d'ailleurs la 
elle-même), ne sont purement et simplement pas im- 
primés! 


Ces 16 caractères existent bien dans les fontes écran, 
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mais ils n'existent pas dans les fontes texte Adobe qui 
sont dans la mémoire de la LaserWriter. 11 faudrait 
donc que le driver aille chercher ces caractères dans 
la fonte Symbol, où ils sont, et fasse l'échange avant 
impression. 


Cela fait partie, selon le Laser Writer Reference, du ca- 
hier des charges de ce driver, et celui du Mac s'y sou- 
met. On comprend cependant Apple de ne pas avoir 
rectifié ce bug qui date de la première version: il y 
faudrait une dizaine de lignes de PostScript, une 
bonne demi-heure de travail, et les heures perdues 
par les utilisateurs à comprendre, puis à contourner 
ce bug, ne doivent pas dépasser quelques centaines. 


Pour le contourner, une seule solution: remplacer 
soi-même, à la main, ces 16 caractères par leurs cor- 
respondants dans la fonte Symbol. Bien entendu, en 
vertu de l'adage de Racine “Tout m'afflige, et me 
nuit, et conspire à me nuire”, la plupart de ces carac- 
tères ne sont pas, dans la fonte Symbol, rangés à la 
même place que dans nos fontes écran, et s'obtien- 
nent avec une combinaison clavier différente! Et bien 
entendu, en vertu du même adage, quelques-uns ne 
s'obtiennent pas de la même façon avec la configura- 
tion Apple et avec la configuration Kænig! 


Le tableau pages 18/19 vous indique donc comment 
obtenir, sur Laser Writer, ces caractères dans la fonte 
Symbol: les signes «Y: » sont là pour cela. Par 
exemple, la dernière ligne de la page 18 se lit de la fa- 
çon suivante: 


« Le symbole « [ », de code Ascii $BA en hexadécimal 
et 186 en décimal, qui représente une intégrale, s'ob- 
tient en tapant «Option-B » avec la configuration 
Apple, et même chose avec la configuration Kænig,. 
Mais si vous voulez l'imprimer sur Laser Writer, il 
faut le remplacer par le symbole équivalent dans la 
fonte Symbol, lequel s'obtient par « Option-y » dans 
la configuration Apple, et par « Option-apostrophe 
puis U» dans la configuration Kænig ». Evident, 
non? 


Pour les utilisateurs de LaserWriter sur GS, je recom- 
mande une précaution: éditez une copie de vos 
fontes-écran Laser (Times, Helvetica, etc}, et rempla- 
cez les caractères en question par un “pense-bête” 


pour vous rappeler de passer en Symbol. 


Prendre les bonnes habitudes 


Reste à utiliser toutes ces nouveautés. Et pour cela, à 
prendre de nouvelles habitudes. 


Les tabulations 


Est-ce un souvenir du vieil AppleWorks 1.4, qui 
n'était pas net avec les Tabs, ou une mauvaise habi- 
tude du débutant sur clavier? En tout cas, beaucoup 
d'entre nous (votre serviteur en premier) ont encore 
tendance, quand ils veulent aligner des colonnes, ou 


simplement commencer un paragraphe, à remplir | { Suite de l'article page 20 ] 
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avec des espaces, bien que tous les manuels de dacty- 
lographie, même sur d'antiques machines à écrire 
mécaniques, enseignent l'usage des tabulations. 


Seulement, avec nos fontes graphiques proportion- 
nelles, ni les espaces ni les lettres n'ont la même lar- 
geur d'une fonte à l'autre: quand vous remplissez 
avec des espaces, d'abord vous n'obtenez jamais un 
véritable alignement, ensuite vous vous condamnez à 
ne plus jamais changer de fonte. À quoi sert alors 
d'avoir un GS? 


Apprenons donc à nous servir des “règles de tabula- 
tion” de nos logiciels, et acceptons que la touche Tab 
serve... aux tabulations! 


Ponctuation et “espace dur” 


Ce point d'exclamation, là, il est vraiment étroit! Si je 
mets un espace avant, ça sera plus lisible. Seulement, 
quand j'imprime, j'obtiens le résultat que vous voyez 
! 


Pourquoi? Eh bien, l'espace (ce bon vieux code Ascii 
32, $20), ce n'est pas un espace: c'est très exactement 
un “inter-mots”, un marqueur de séparation entre 
les mots. C'est sur cet inter-mots que va jouer le logi- 
ciel quand vous lui demandez une justification totale: 
il va aligner des deux côtés en augmentant lépère- 
ment ces “inter-mots”. C'est aussi sur ces inter-mots 
qu'il va se repérer pour faire ses coupures de fin de 
ligne: il coupe là où vous avez mis ces faux “es 
paces”. Il considère ainsi comme parfaitement légal 
de couper entre le mot et le signe de ponctuation qui 
le suit. 


Attention donc aux points, virgules, points-virgules, 
deux-points, etc...: mettez un espace après la ponc- 
tuation, mais n'en mettez pas avant. Laissez-les collés 
aux mots qui précèdent, ou alors. mettez un vrai es- 
pace: un “espace dur”. 


L'espace dur, ou “vrai espace”, ou “espace collant”, 
c'est celui dont vous vous servez pour écrire par 
exemple “ToolBox Mag”: pour éviter la coupure 
entre “ToolBox" et “Mag”, vous les reliez par un 
signe que vos logiciels considèrent comme un çarac- 
tère, pas comme un intervalle. Dans ce cas-là, on tape 
“Option-Espace”, la barre d'espace étant réservée à 
“je veux une coupure entre les mots à cet endroit”. 


Une note aussi sur les points de suspension: beau- 
coup d'entre nous tapent souvent quelques points, de 
trois à cinq en moyenne, pour marquer les points de 
suspension. Seulement, certaines fontes ImageWriter 
intelligentes, ont une ponctuation spécialement étu- 
diée, qui permet d'éviter de mettre un espace dur 
avant la ponctuation: le caractère lui-même a été des- 
siné en réservant du blanc sur la gauche (à droite, il 
faut mettre un “inter-mots”), Conséquence: on voit 
parfois des points de suspension qui donnent 
ceci 
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SPRINT 


Rs sente 
Fe a 


Dress 
nm 


na 
SR pres 


E ou ibracketlef ft (crochet gauche) 


3 $7B : 123 ss! (accolade sue) 


us E pmeres (se) — 
064 |at (arobas ou a commercial) | 


: L8C | f 124 bar (barre verticale) 


[ $84 
885 | 
:_$86 : 
: 887. 
L $88 
7 $89 © 
. $8A . 
| S8B. 
T Sec : 
T$8D 
| S8E | 
: $8F | 
1.890 ! 
:.S91 
: $92 
| 893. 
: $94 
595 
: 896 : 
: 597 : 
:. 598 
1.599 : 
: $9A . 
:.S9B 


: $9D : 
| SE 


SE | 


TA 
: SA4 
| SAS. 
: SA6 
B_:S$A7. 
@ :SA8. 
© :$A9: 
74 |SAA 
"_iS$SAB. 
AGE 


*#_; $B4 


: $B5 


3 | Hi sg (E accent aigu) 


132 INtilde 

133 Odieresis (0 tréma) 

: 134 | Udieresis (U tréma) 

LS: jaacute {a accent aigu) 

- 136 ‘agrave (a accent grave) | 

7137 Yacircumflex {a accent circonflexe) 
138 : ladieresis (a tréma) | 

139 : ja tilde 


140 jaring (a es veu nan 


“41 fccedilla (c cédille) 

_ 142 'eacute (e accent aigu) | 

143 legrave (e accent grave) 

“144 lecircumfiex (e accent circonflexe) 
145 Icdicresis (c tréma) 

146: ‘acute (i accent aigu) 

| 147 ligrave (i accent grave) _ 

- 148 ‘icircumflex (ï acceni circonflexe) 
“149 lidieresis (Gi tréma) | 

150 intüde_ so 

‘151 loacute (o accent aigu) 

152 : jograve (o accent grave) 

153 locireumflex (o accent cireonflene)… 
154 Jodieresis (o tréma) 
435 lotlde. 

156 luacute ‘(u accent aigu) | 
157; jugrave (u accent grave) _ 
158 ‘ucircumflex (u accent circonflexe) | 
159 ludieresis {u véma).… 


161 |degree (degré) 

: 162 : icent 

163 sterling 

164 : isecüion 

165 ‘bullet (balle) 

166 |paragraph. 

167 :germandbls (double s allemand) 
168 ‘registered orne 
169 copyright … 

170 ‘trademark 

171 acute {accent sn 

172 ‘dieresis (tréma) 


yen Hu 
181 mu. 


: 182 partialdiff (différentielle partielle) 





e). 
product {produit - PT majuscule) 
! 185 pipi minou) 

: 186 integra 


A Trio 47 
{Option ° (degré). 


:Option f 


{Option Control-U 
: | is Control-W_ 


| = :Option Control-B … 


‘Option Controi-P 


re Control-M 


sites: Option Controi-R 


“Ori Control-F _ 


ne on. RE Que. 
us +} Z.1d 


LE: id 


Option '+E 
— PRE n+ N_ is 


"+0. 
FEU. 


es — 


Queen Control-Q 
:Option Control-X 


és n+a 


Option 8 
Km 


ue + 2 . “ 


“id 


Cd co 
_Optionn+n : 

Option ‘ +0 
:Option! +0... 


DER. 
"+0 


“ones Es pau 


Option" +u. 


SA ROME 


“Options / Ÿ ‘DSRma : | Menton 


_:Option Control-Y 


:Option m 


‘Option d/Z: id 


:Option S / Z: Option : 1 se. L … LES ne 


{Option P/ÈP 
non LE D. 
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HE 187 sen (ordinal féminin) 


=. 


dRneres 
DONS TEEN 2 Er SA 


HET 


FH 


4 194 ‘logicainot (non — se nl n Id 
: 195 “radical (racine) | Option V/Ÿ: Option: ‘ja " 
| $C4 | 196 iflorin {Option f_ Id 
: 197 'approxequal (approximativt égal) Option x/ Z: Option Ü Id 
: 198 Delta Option D/X: D ‘I 
Ti 199 iguillemotleft (guillemets pue ‘Option è Id 
Option 7... Id | mn 
_i $C9 201 “ellipsis. (points de suspension) Option; # 
“T$SCA ! ‘202 *blank (espace dur) ‘Option Espace ‘Id ns à 
: $CB 203 A Agrave. (A accent grave) ‘Option Control-à ‘Option +A 
ilde ‘Option Control-A :Option n + À 
Option Control-O _ Optonn +0. 
_ {Option O1. 
CF : 207 :0 Option e id. 
: D0 | 208 endash (trait d'union court) Option (souligné) Id. 
; $D1 . : 209 emdash (trait d'union long) 3 ‘Option - (tiret) … … Id 
: $D2 : 210 «quotedblleft (guillemets typo gches). Option FAN Id. 
‘Id 
4 SD4 ; 212; ‘quoteleft (guiim typo simples gches) ‘Option: {apostr) LOnon 1. 
LE : SDS | ‘213 |quoteright (guilm 1ypo simples droits) Option 4. 
ane ‘Option : _ LR 
Option v / Z: Option ad. NS 
‘Option Control-H _ © 24 
‘Option Y_ 
3 É ‘Option X 
'$DB 219 | Currency {monnaie) ‘Option R 
DC . 220 guilsinglleft (guillemet simple gche) Option w__ M 
DD : 221 :guilsingiright (guillemet simple droit): Option W E 
222 Ÿ 2: RP ER mn ‘Option g 
Option G 
: SEO ‘224 daggerdbl {dague double) ‘Option q. 
: SEI | 225 periodcentered (point centré) Option * 
+ 226 quotesinglbase (guillemet simple bas) Option $ 
_$E3 : 227. .quotedblbase (guillemets doubles bas} Option 2 1 
: SE4 : 228 perthousand (pour mille). ARR D: ce OM pour re gr 
: SES : 229  Acircumflex (A accent circonflexe) Option z A+ À 
:.$E6 : 230 Ecircumflex (E accent circonflexe) Option E  A+E : 
7 SE7 ! ? 231 : Aacute (A accent aigu) Option 9 ie -Option + A 
SES: 232 Edieresis (E uéma) .OpionK  "+E wi 
| $E9 233 Egrave (E accentgrave) Option k Option +E 
: SEA : 234 Tacute (T accent aigu) ‘Option J __ Option'+1. 
: $EB : 235 Icircumflex (I accent circonflexe)  OpüionH | NET 
[SEC 236 Idieresis (Ltréma) Option) "+1 
_SED. _237 | Igrave (I accent grave) ©" Optonh Option +1. 
1238 :OscuRe {0 accent aigu). | ‘Option M. ‘Option ‘ + O 
‘Option : " {tréma) ‘A+ 0 
0. ë Option & / X: id Id 
SFI | 241 Ograve (O accent grave) Option s … Option” +0 
[SR : 242 |: Uacute (U accent aigu) ‘Opiony | __ ‘Option '+U 
J $F3 243 Ucircumflex {U accent circonflexe) Option 8. A4+U 
: $F4 | 244. “Verve (U accent grave). Option à (Orion. +U 
:Option N 
Option 6 D ï 
3: 1 “td DEAR CEE ….… Option Control-A ne à ….\## 
| SF8 | LAS mecs . a QPÉON CONTOÏ-..... OPHONRE | FES 
_SF9 : 249 breve (brève). Option Controi-V 
:Option EF. . 
‘Option Escape 
zh SFC : 252 cedilla (cédille) Option Control-ç 
! $FD : 253 hungarumlaut (umlaut hongrois) Option Control-$ 
SFE. 254 ogonet Open ContokD. 
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[ Suite de la page 17 ] 


Or, il y a un caractère “points de suspension” dans 
nos nouveaux caractères: il est obtenu par “Option 
point-virgule”, et il donne ceci. 


Le retour des anciens 


Quand on découvre tous ces nouveaux caractères, on 
se limite souvent à regarder au-dessus de 128: effecti- 
vement, là, c'est l'abondance. On en arrive à oublier 
ces caractères que nous avions appris à considérer 
comme des caractères “américains”. Ces bonnes 
vieilles {accolades}, ces bons vieux [crochets], que 
nous avions sacrifiés pour nos é, nos è et nos 8, les 
voici de retour, en même temps que nos é et nos è. 


On peut même maintenant écrire des sources C im- 
primables sans avoir besoin de passer en américain: C 
facile, comme dit quelqu'un. Plus besoin de choisir 
entre à et !, jusqu'au # qui est enfin redevenu un #, et 
qui ne se confond plus avec la £. Tout cela sur un GS 
100% francisé, écran français, clavier français, transla- 
tion française, 


Apostrophes el guillemets 


Amis qui écrivez sur votre GS, on voit en cinq lignes 
si vous êtes dans le coup du GS ou si vous êtes un 
“has-been du 8 bits”: les "vieux" écrivent "ceci, là où 
les “jeunes” écrivent “ceci”. 


Plus grave encore, vous vous créez un problème: 
comme les “guillemets typographiques” (d'imprime- 
rie) sont de deux sortes, gauches et droits, le rempla- 
cement des "guillemets dactylographiques" (de ma- 
chine à écrire) n'est pas évident à faire automatique- 
ment. 


Ceci dit, si vous étudiez la liste des types de guille- 
mets typographiques dont nous disposons, c'est vrai- 
ment l'abondance. Je crois savoir que les «guillemets 
doubles classiques» sont réservés à des citations tex- 
tuelles, les “guillemets doubles hauts” à des citations 
sans nom d'auteur, les ‘guillemets-apostrophes’ à des 
références à un terme familier. 


Mais je né connais guère l'usage, je l'avoue, des 
«guillemets simples:, ni de ces curieux guillemets bas 
(droits seulement: , et ,), que je distingue avec peine 
d'une virgule, simple ou double. Si vous avez des 
tuyaux à ce sujet, merci d'en faire profiter les autres. 


Le guillemet-apostrophe droit (°} est aussi parfois ap- 
pelé “apostrophe typographique”: il est effectivement 
utile, avec certaines fontes, de remplacer toutes les 
apostrophes ordinaires par cette apostrophe: mais ce 
n'est pas toujours le cas. Seul compte le résultat pa- 
pier: l'apostrophe doit être inclinée à gauche, mais 
pas trop. Certains logiciels vous proposent d'ailleurs 
de remplacer l'apostrophe ordinaire par l'accent 
aigu (). 11 me semble difficile de chercher un stan- 
dard: je conserve donc, par défaut, la vieille apo- 
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strophe. 
éetc 


C'est sans doute la faute préférée de ToolBox Mag, si- 
non la plus fréquente, du moins la plus visible: 
confondre € et G. C'est sur le Ile/Ilc qu'il y a une 
touche , le GS n'a que © et Option. 


- Mais, dans mes fontes, je n'ai que la #, comment 
fais-tu pour vider ta Pomme? 


- Je m'en doutais, bien peu (y compris sur Mac) prati- 
quent ce truc pourtant évident, parfaitement normal 
pour qui écrit sur GS. Les CG de cet article sont engen- 
drées normalement, sans aucun trucage, avec la fonte 
Symbol (oui, pour la Laser, voir ci-dessus). Vous don- 
nez votre langue au chat? 


Déroulez le menu “Style”; essayez le style “Silhouette” 
ou “Eclairé" (Outline): il se charge très bien de vider la 
Pommel Pensez simplement à prendre une taille de fonte 
un peu plus petite que le reste de votre ligne: le style 
“Outline” augmente la taille du caractère. 


Les Crésus de la typographie. 


En conclusion, je le reconnais: tout ce qui précède fait 
un peu donneur de leçons, un peu “prof”. Pour ma 
défense (outre le fait que cette déformation n'est pas 
forcément la tare la plus indigne, après tout), je dirai 
que c'est d'abord à moi-même que je veux donner des 
leçons: en alertant les lecteurs sur nos fautes favo- 
rites, je sais qu'ils vont tiquer sur celles de 
TooïBox Mag, cœ qui nous forcera à mieux faire. 


Et puis, j'ai une autre raison: pour ne rien vous Ca- 
cher, le GS, je suis pour. Or, tirer le maximum du GS, 
c'est apprendre la ToolBox, les Ressources, et tout ça, 
d'accord. Mais c'est aussi se mettre au niveau de sa 
machine dans les utilisations les plus quotidiennes 
et les plus ordinaires, comme la rédaction. 


Je connais des experts en programmation du Ke- 
source Manager sous trois niveaux d'interruptions, 
qui utilisent pourtant toujours les vieux guillemets 
(et c'est vrai, les éditeurs de texte des logiciels de pro- 
grammation sont globalement à la traîne de ce point 
de vue, accrochés qu'ils sont au vieux mode texte, 
même s'ils utilisent l'écran graphique). 

Changer d'habitudes n'est facile pour personne, sur- 
tout quand, comme les habitudes d'écriture, elles 
sont devenues automatiques et inconscientes. 


Mais il faut nous y faire: nous sommes devenus 
riches! Finies donc les “bidouilles de pauvres” obli- 
gés de tricher pour avoir les accents français, finies 
les habitudes des antiques machines à écrire mécani- 
ques. Il faut gérer l'opulence typographique. 


Avec toutes nos fontes, tous leurs styles, et tous leurs 
caractères, nous sommes devenus des Crésus de la 
typographie: d'accord, pas besoin d'en rajouter, cela 
fait “nouveaux riches”. Mais pas besoin non plus de 
faire des complexes: riches, et contents ! 
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Etude hard (6) 


L'Apple Il GS et la vidéo 


Jacques Liautard 


Vous avez un ordinateur Graphique, un GS. Ses 
images sont magnifiques sur votre écran couleur. 
Mais vous voyez aussi de belles images couleur 
ailleurs : sur votre écran TV par exemple. Forcé- 
ment, vous avez envie de capter sur votre GS toutes 
ces images. Vous avez aussi envie d'envoyer sur la 
TV les images du GS, d'autant que la TV elle-même 
vous montre que cela se fait… 


Les interfaces 


Dans un monde idéal, il suffirait de brancher. 
Dans ce bas-monde, cela ne suffit pas. Le monde 
de l'image, de la lumière (comme celui du son 
d’ailleurs) est un monde où tout est continu, où 
l'on passe progressivement, insensiblement, 
d'une couleur à une autre, par exemple. Le 
monde du GS, celui de l'électronique, ne connaïit 
que les 0 et les 1, il est discontinu, “digital”. 

Le monde du digital est en train de rattraper 
l'autre: si je découpe un signal continu en 
tranches discontinues très, très fines et en très, 
très grand nombre, et que je reproduis ensuite 
ces tranches discontinues, le résultat est le même 
pour nos yeux et pour nos oreilles (24 images 
discontinues par seconde sont égales à nos yeux 
à du mouvement continu, c'est le principe du ci- 
néma). Ce résultat est même meilleur, car ce qui 
est digital est d’une fiabilité absolue. Pour le 
son, ce processus arrive aujourd'hui à son 
terme: un lecteur de compact-disques se 
branche directement sur le GS, 

Pour l'image, nous n'y sommes pas encore : 
d'autant que les réalités de la concurrence inter- 
nationale ont multiplié les standards vidéo. Il 
faut donc des “interfaces”. Cet article voudrait 
montrer quels interfaces on peut utiliser, et com- 
ment, pour insérer le GS dans la chaîne des 
images. Car ça marche, et ça vaut le coup ! 


Distinguons 
Mais il faut commencer par distinguer, car vous 


pouvez vouloir plusieurs choses différentes : 
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© transporter dans le GS des images vidéo ve- 
nant d’une source extérieure, Cela s'appelle de 
la digitalisation d'images, et il vous faut pour 
cela une carte de digitalisation d'images, cette 
carte étant dans un des slots du IIGS. 


@ enregistrer sur un magnétoscope les images 
affichées sur le moniteur du GS, à la place 
d’une image vidéo. C'est assez facile, un simple 
câble y pourvoira pour le noir et blanc, un boïî- 
tier de conversion sera nécessaire pour la cou- 
leur. 


© superposer l'image de lécran GS à une 
image vidéo de TV ou de magnétoscope. Cela 
s'appelle faire de l’incrustation, et il y faut une 
carte spécifique. 


© décalquer à la main une image vidéo pour en 
faire une image GS : idée curieuse, me direz- 
vous, pourquoi ne pas digitaliser (première 
fonction) ? Eh bien, il se trouve que la carte qui 
permet la troisième fonction (lincrustation), 
permet aussi cette quatrième fonction, rempla- 
çant ainsi la tablette graphique. Voyez le qua- 
trième chapitre de cet article. 


Chapitre 1 : L’acquisition d'images 
pour le GS (digitalisation) 


Dans un premier temps, donc, nous suppose- 
rons que vous voulez capturer en fichiers Paint 
toutes les images que vous voyez autour de 
vous : c'est possible, bien sûr, cela s'appelle “di- 
gitaliser”. 

Digitaliser quoi ? 


Tout : le GS peut digitaliser n'importe quelle 
image vidéo. Cela peut aller d'une image télévi- 
sion (en reliant la sortie Péritel de votre poste à 
l'entrée vidéo de la carte de digitalisation), à une 
image de camescope, en passant par celle d'un 
magnétoscope, vidéo disque ou appareil photo 
vidéo (en reliant la sortie vidéo de l'appareil à 
l'entrée vidéo de la carte de digitalisation). 
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Les différents standards vidéo 


NTSC : la norme américaine, totalement in- 
compatible avec les autres normes. 
SECAM : la norme française, 


PAL : la norme des autres, 

S-VHS et HI8 : pour le moment, aucun péri- 
phérique du IIGS ne reconnait ces signaux, 
mais une cassette enregistrée en S-VHS peut 
être relue au choix en Pal ou en Sécam. 





Je dis bien “tout” : car tout ce qui se voit peut 
être transformé en image vidéo, il suffit de 
l'éclairer et de le filmer. On peut de cette façon 
digitaliser une photo papier, par exemple, et 
remplacer tous les scanners, Quickie ou autres : 
filmez et digitalisez. 


Digitaliser, pour quoi faire ? 


& vos lettres à en-tête. 

# vos cartes de vœux. 

ë& votre adresse au dos des lettres. 

& accompagner l'adresse de vos amis sur les 
lettres avec leur photo. 

ë récupérer des images que vous ne pourriez 
pas dessiner vous-même. 

ë écrire un jeu d'aventures ou d'arcade (Space 
Ace) à base d'images digitalisées. 

ë etc, etc. 


La seule limite est celle de votre imagination : 
d'autant qu'une fois votre image digitalisée, 
vous pouvez la retravailler avec votre logiciel de 
dessin habituel... 


L'équipement : la carte de digitalisation 


Pour transformer une image vidéo en image GS, 
il faut la digitaliser. Il faut donc acheter une 
carte de digitalisation d'images; et Là, il s'agit de 
bien faire attention à ne pas se tromper au ni- 
veau du standard vidéo, car vous avez deux 
choix possibles : une carte en Pal ou une carte en 
NTSC. 


Les cartes de digitalisation NTSC 


Si vous achetez une carte en NTSC (Computer 
Eyes 195$, ou Visionary Card 349$, plus frais de 
port et de douane pour les deux), vous aurez la 
possibilité de digitaliser en noir et blanc ou en- 
core en couleurs avec des tons pastels proches 
de la réalité. Mais attention : il faudra que vous 
possédiez également une source vidéo en 
NTSC, telle que magnétoscope, vidéodisque, 
camescope, caméra, ou encore appareil photo vi- 
déo. Si vous essayez de digitaliser avec une 
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source en Pal ou en Sécam vers une carte de di- 
gitalisation NTSC, vous n'aurez aucune image. 


Tous ces matériels en NTSC ne se trouvent 
qu'aux USA ou en France dans des magasins 
spécialisés. Attention également : si vous ache- 
tez un magnétoscope NTSC, vous ne pourrez 
pas enregistrer les chaines françaises ou euro- 
péennes, et vous ne pourrez lire une cassette que 
sur un téléviseur acceptant le NTSC. Il existe 
certes des transcodeurs Pal/Sécam/NTSC, mais 
leur prix est d'environ 8.000F! 


{NDLR : à notre connaissance, l'achat d'une carte de 
digitalisation NTSC, en France, ne se justifie vrai- 
ment que pour qui veut digitaliser des images fixes 
en noir et blanc. Une caméra de surveillance noir et 
blanc, bon marché, dédiée à la digitalisation, peut 
faire alors un équipement correct, le moniteur du GS 
étant chargé de la visualisation] 


Les cartes de digitalisation en Pal 


Si vous achetez une carte en Pal vous avez deux 
possibilités : la carte Computer Eyes-Pal (2.500 F 
environ), ou la carte DGA-1 (5.000 F). 


La carte Computer Eyes-Pal 


C'est la moins chère, mais il faut compter 6 se- 
condes minimum pour digitaliser une image. Ce 
qui veut dire que si vous essayer de digitaliser 
une image en mouvement, vous aurez aussi le 
mouvement, donc une image floue. Pour digita- 
liser sans problème avec la Computer Eyes, il 
faut partir d'une image fixe, obtenue soit avec 
une caméra sur pied, soit avec un appareil photo 
vidéo. 


En revanche, vous pouvez digitaliser en 16 cou- 
leurs avec des tons pastels. Voir sur la disquette 
une image de ce type. 


La carte DGA-1 


C'est la plus chère, mais comme Lucky Luke, 
elle digitalise plus vite que son ombre. Vous 
pouvez donc digitaliser soit en continu, soit 
image par image. 


Deux boutons sur la carte permettent de régler 
la luminosité et le contraste. Deux prises reliées 
à la carte permettent de brancher un moniteur 
de contrôle (moniteur de Ile par exemple) sur 
l'image qui passe par la carte et la source Vidéo. 
Moyennant l'achat d'un adaptateur, vous pou- 
vez aussi raccorder la carte sur une télévision 
couleur. En pratique, vous regardez directement 
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votre source et le moniteur de contrôle ne 
s'avère pas indispensable. 

Inconvénient de la DGA-1, elle ne digitalise 
qu'en 16 niveaux de gris, à vous de repasser 
l'image en couleurs, ce qui est possible mais de- 
mande du temps. 


Voir sur la disquette, une image digitalisée en noir 
et blanc et une autre retravaillée en couleurs. 


L'équipement vidéo 


Attention à ne pas juger la qualité des cartes de 
digitalisation ci-dessus directement sur l'image 
GS que vous obtenez. J'ai parlé plus haut de 
“chaîne vidéo” : la carte de digitalisation n’en 
est qu’un des maillons, et comme dans toute 
chaîne, la qualité globale de la chaîne est celle 
de son moins bon maillon. 


Autrement dit, meilleure est la source vidéo, 
meilleure sera l'image GS. Si votre camescope à 
un capteur de 290000 pixels, la qualité sera 
moins bonne qu'avec un autre camescope équi- 
pé d'un capteur de 470.000 pixels (Caméra Sony 
HI8 CCDV700, 12.000F, par exemple). Votre 
choix de la carte de digitalisation d'image sera 
donc orienté par le budget que vous désirez y 
consacrer, ainsi que par l'équipement vidéo 
dont vous disposez, ou dont vous comptez vous 
équiper. 

Si vous voulez acheter un magnétoscope S-VHS, 
vous pourrez sans problème sortir le signal vi- 
déo venant du magnétoscope en Pal, et digitali- 
ser vos images avec l’une des cartes Pal ci-des- 
sus, ces magnétoscopes étant équipés pour res- 
sortir, à partir d'une cassette enregistrée en S- 
VHS, soit en S-VHS, soit en Pal, soit en Sécam. 


Comment relier la source vidéo 
à la carte de digitalisation 


Le principe reste le même quel que soit l'appa- 
reil de lecture utilisé, que ce soit un magnéto- 
scope, une télévision, un camescope, un vidéo- 
disque ou un appareil photo vidéo : il faut relier 
la sortie vidéo de l'appareil de lecture sur l'en- 
trée vidéo de la carte de digitalisation. 


La sortie de l'appareil peut être une prise Péritel, 
dans ce cas là vous pouvez trouver un cordon 
Péritel universel, équipé d'une prise Péritel d'un 
côté et des câbles vidéo et sons de l'autre. La sor- 
tie peut être une prise RCA (Sony), Mini Din 
(JVC) ou BNC (anciens magnétoscopes), à vous 
d'acheter (entre 50 et 200 F) ou de fabriquer 








(entre 6 et 30 F) le câble qui convient. 


Chapitre 2 : enregistrer les images 
GS sur magnétoscope 


C'est certainement l'activité vidéo la moins 
chère pour ceux qui ont déjà un magnétoscope. 
En attendant les joies de la digitalisation 
d'images, ou en complément de la digitalisation, 
pourquoi ne pas enrepistrer sur un magnéto- 
scope ce qu'affiche le moniteur de votre IIGS? 


Pour quoi faire ? 


Du cinéma par exemple, ou bien de l'éducatif, 
ou bien encore une démonstration de votre ap- 
pareil. 


Du cinéma : avec VCR Companion de Broder- 
bund (30$ chez Program Plus), préparez le script 
de vos titrages de début, de plans de coupe ou 
de fin, puis lors du montage de vos films, insé- 
rez vos animations. 

Si vous avez une carte de digitalisation, digitali- | 
sez les images de début, plan de coupe et fin, 
prenez votre programme de dessin et par dessus 
les images, dessinez vos titres et autres inter- 
titres. avant de les intercaler dans votre mon- 
tage de films 


Du matériel éducatif : vous en avez assez de ré- 
péter tous les jours comment utiliser le traite- 
ment de texte? Enregistrez au fur et à mesure les 
images-écrans des différentes phases du traite- 
ment de texte, tout en les commentant au micro, 
ou bien en post-sonorisant le film. 





Encore une fois, je fais confiance à votre imagi- 
nation pour explorer tous les domaines pos- 
sibles… 


Le matériel 


A nouveau deux possibilités s'offrent à vous 
pour sortir l'image de votre ordinateur sur un 
magnétoscope. Soit relier directement les deux 
appareils, ce qui permet d'obtenir une image en 
noir et blanc, soit intercaler un transcodeur 
RVB/Sécam, ce qui permet d'obtenir une image 
en couleurs. 


Attention, dans tous les cas, ne pas oublier de 
mettre le GS en 50 HZ pour éviter un défilement 
sur l'écran vidéo. 


En noir et blanc : juste un câble 


Si l'on désire uniquement une image en noir et | 
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blanc, il n'y a pas besoin d'interface spécifique. 
Le câble suivant suffit (GS DB 15 à gauche, Péri- 
tel à droite) : 


Pins 161%. Pins 4-5-9-13-17-18-21 masse 
PUR sms au Pin 15 rouge 
Pin sr Pin 20 composite 
PIN dresse Pin 11 vert 

PIN Passe Pin 7 bleu 

PI I nsc Pins 2-6 son 

PIE asia Pin 8 +12 v 


Relier la masse au blindage, bien sûr. La diffé- 
rence avec le câble couleur est Pin 12 vers Pin 20. 
A priori, ça devrait aussi fonctionner sans les 
rouge/vert/bleu/+12v, mais j'avoue n'avoir pas 
essayé. 


En couleurs : câble et interface. 


Pour sortir en couleurs l'image GS sur un ma- 
gnétoscope VHS Sécam, il faut un câble et un 
boîtier d'interface RVB. Le câble d'abord : 


Il s’agit du câble “GS/Péritel”, qui devrait en- 
core être au catalogue Apple. Voici son schéma 
(GS DB15 à gauche, Péritel à droite, et relier la 
masse au blindage, bien sûr) : 


Pins 1-6-13 Pins 4-5-9-13-17-18-21 masse 
Pine nens Pin 15 rouge 
PINS usure Pin 20 composite 
PIS ssnsiatiri Pin 11 vert 

PR Vrais Pin 8 +12 v 
PS oasis PIN 7 bleu 

EM Elisa Pins 2-6 son 


[NDLR : la Documentation Apple dont nous dispo- 
sons préconise d'intercaler une résistance de 190 
Ohms entre le Pin 3 du GS et le Pin 20 de la Péritel, 
et de relier le Pin 8 de la Péritel au Pin 16 de cette 
même Péritel, en intercalant une résistance de 360 
Ohms.] 


L'interface ensuite : pour transformer le signal 
RVB de l'ordinateur en signal Vidéo Composite 
Sécam accepté par les magnétoscopes, il suffit de 
raccorder la prise Péritel du câble ci-dessus à 
une Interface CGV PHS 60 Modèle 25 (dispo- 
nible par exemple chez Général Vidéo , 700 F en- 
viron). Il ne restera plus alors qu'à relier cette In- 
terface à l'entrée Vidéo/Son du magnétoscope 
(Péritel ou autre), avec un câble 4d hoc, acheté 
ou fabriqué suivant la notice fournie avec l'Inter- 
face CGV. 


Chapitre 3 : la Video Overlay 
Card et l'incrustation d'images. 


Nous consacrerons en fait deux chapitres de cet 
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article à la carte Video Overlay Card d'Apple : 
elle le mérite bien. 


Qu'est-ce que l'incrustation d'images ? 


Il faut avant tout distinguer clairement la digita- 
lisation des images (chapitre 1) et l'incrustation 
vidéo. Ce ne sont pas les mêmes fonctions, et les 
cartes qui font l’une ne font pas l'autre. Une 
carte de digitalisation d'images récupère un fi- 
chier image utilisable par votre ordinateur. 


La carte d'incrustation d'images écrit ce qui est 
affiché sur l'écran de votre ordinateur par des- 
sus une image vidéo. Cette image vidéo et l'in- 
crustation sont ensuite récupérées sur un ma- 
gnétoscope. Il ne vous reste plus qu'à concurren- 
cer Roger Rabbit ou Mary Poppins.. 


Dans tout ce qui suit, nous allons donc bien sé- 
parer la notion d'image vidéo, qui désigne ce 
qui vient d'une source vidéo, comme le film de 
votre camescope par exemple, et celle d'image 
ordinateur, qui désigne toutes les images affi- 
chées par les programmes de votre ordinateur. 


Ce qui crée la confusion est le fait que la carte 
d’incrustation permet de faire apparaître une 
image vidéo sur l'écran du GS. Elle reste cepen- 
dant une image vidéo, destinée à ressortir vers 
une autre destination vidéo (magnétoscope, télé- 
vision etc...), où elle sera montrée et sauvegar- 
dée. 


L'image vidéo ne fait que transiter par le IIGS, 
il est donc impossible de sauvegarder sur dis- 
quette l'image vidéo, avec ou sans incrustation 
de l'image ordinateur : on retombe à ce moment- 
là dans le domaine des cartes de digitalisation 
d'images. 


Video Overlay Card : comment la trouver ? 


Pour le matériel destiné à l'incrustation, pas 
d'hésitation possible: il n'existe qu'une seule 
carte, la Video Overlay Card d'Apple. Mais, me 
direz vous, Apple France ne la commercialise 
pas, elle n'existe qu'aux USA en NTSC ! 


Eh bien pas du tout, il existe une version Pal de 
cette carte, et elle est commercialisée par Apple : 
par Apple... Australie ! Bon d'accord, l'Australie 
est loin et même un bond de kangourou ne suffit 
pas pour y aller : alors mieux vaut s'adresser en 
Suisse, chez Musicomp. Pour un prix en Francs 
Suisses de 1490 F (environ 6000 F français) plus 
port, elle est à vous. 


Si vous programmez, vous pouvez acquérir 
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pour environ 150 F (suisses) le kit logiciel pour 
gérer directement l'outil 33 utilisé par la carte, 
sans passer par l'accessoire VideoMix (ce kit est 
disponible aussi chez APDA aux USA). 


Installation de la Video Overlay Card 


La carte s’installe impérativement en slot 3 du 
GS. (I faudra tirer sur le câble de votre Trans- 
warp pour installer celle-ci en slot 4, si vous en 
avez une). Deux connecteurs se raccordent à 
l'arrière du IIGS. Le premier pour l'entrée et la 
sortie vidéo (prises RCA), le deuxième pour le 
moniteur du IIGS, moniteur qui restera à de- 
meure branché sur ce connecteur, même quand 
la Video Overlay Card ne sera pas utilisée. Au- 
cun réglage à effectuer sur la carte, celle-ci est 
réglée en usine une fois pour toutes. 


Pour les branchements en entrée : 


Reliez la source vidéo Pal (camescope par 
exemple) sur l'entrée de la carte. Si vous rentrez 
en Sécam, l'image est traitée en noir et blanc, 
mais si vous utilisez un transcodeur Pal /Sécam 
en sortie, vous récupérerez l'image vidéo en 
couleurs à la sortie. Attention par contre à la 
qualité de l'incrustation, qui sera moins bonne 
que pour un signal Pal en entrée. 


Pour les branchements en sortie : 


+ Vous avez un magnétoscope et une télévision 
Pal/Sécam? Aucun problème, enregistrez votre 
film avec incrustation en Pal. 

+ Vous avez un magnétoscope seulement Sé- 
cam, ou bien une télévision seulement Sécam? 
Intercalez entre la carte et le magnétoscope un 
transcodeur Pal/Sécam (environ 1000 F chez 
tous les marchands de camescope ou chez Géné- 
ral Vidéo). 


Fonctionnement de la Video Overlay Card 


Après avoir parcouru la notice, très claire et 
émaillée de nombreuses photos, pour éviter tout 
problème de mauvaise installation, on se lance. 
On boote le IIGS, au tableau de bord on le confi- 
gure en 50HZ, et avec une bordure et un écran 
noir. 

On met le camescope en lecture: miracle, 
l'image vidéo du camescope apparaît sur le mo- 
niteur du TIGS avec la pomme qui va et vient 
par dessus, On lève la tête et sur l'écran de télé- 
vision, on voit la même image. ! 

Allez on se lance un peu plus... On boote GS/OS 
dans lequel on aura copié le NDA Videomix 
(soi-même ou avec l'installer) ainsi que le 
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Tool033, nda et tool livrés avec la carte évidem- 
ment. 

Une fois sous le Finder, l'image vidéo apparaît 
sous la bordure (noire) ainsi que sous tous les 
endroits qui sont de couleur noire. On peut com- 
mencer à incruster. 


La carte Overlay gère les 16 couleurs à incruster 
suivant la méthode de 1 plus 15. C'est à dire qu'à 
un moment donné vous avez choisi une couleur 
clef, les 15 autres couleurs étant alors non clef. 
Par exemple, dans les réglages d'origine, la cou- 
leur clef est le noir, et l'ensemble des autres cou- 
leurs est non clef, Le réglage de l'ensemble des 
couleurs non clef sera le même pour les 15 cou- 
leurs non clef. 


Vous pouvez rendre la couleur clef transpa- 
rente, non transparente ou plus ou moins trans- 
parente, même chose pour l'ensemble des 15 
couleurs non clef, qui peut aussi être transpa- 
rent, non transparent ou plus ou moins transpa- 
rent. Le NDA Vidéomix sert à gérer cette trans- 
parence. 


Vidéomix affiche la palette standard des 16 cou- 
leurs. Avec la souris, vous sélectionnez la cou- 
leur clef : si une image vidéo transite par votre 
TIGS, vous la verrez apparaître sous la couleur 
clef si celle-ci est transparente. Vous sélection- 
nez de deux façons différentes : soit sur la pa- 
lette de Vidéomix, soit directement sur l'image 
ordinateur de votre IIGS, dans le cas où cette 
image n'utilise pas une palette standard. 


Vidéomix sert non seulement à sélectionner la 
couleur clef, mais sert aussi à déterminer son de- 
gré de transparence. Une barre de défilement 
gère la transparence de la couleur clef, une autre 
barre de défilement gère la transparence de l'en- 
semble des couleurs non clef. 

Pour la couleur clef, vous pouvez la rendre : 

« totalement transparente : cette couleur sera invi- 
sible par-dessus l'image vidéo, 

+ pas du tout transparente : cette couleur apparaî- 
tra parfaitement par-dessus l'image vidéo. 

sen partie transparente : cette couleur apparaîtra 
plus ou moins distinctement par dessus l'image 
vidéo, suivant le réglage de votre barre de défi- 
lement. 

Vous réglez de la même manière la transparence 
de l'ensemble des couleurs non clef. Ces possibi- 
lités de réglage permettent la superposition à 
l'image vidéo d'images ordinateur invisibles, 
fantomatiques ou très nettes, à votre choix. 





Autre possibilité offerte par Vidéomix, le réglage 
de la couleur ou de la saturation des couleurs de 
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l'image vidéo. Une barre de défilement vous per- 
met d'ajouter ou de retirer du vert ou du rouge à 
votre image vidéo, une autre barre de défile- 
ment vous permet de passer votre image vidéo 
du noir et blanc aux couleurs les plus criardes. 


"y Hélas, si vous travaillez en Pal, cette modification 
des couleurs apparaît bien sur l'écran du IIGS, maïs 
à la sortie, sur l'écran de télévision ou en enregistre- 
ment sur le magnétoscope, les images vidéo gardent 
leurs couleurs d'origine (VideoMix, ayant été écrit 
pour le NTSC, ne gère pas parfaitement le Pal). 


Cela dit, la qualité de l'image produite par la 
Video Overlay Card est excellente : entre une 
image vidéo qui transite par votre ordinateur, et 
la même image vidéo copiée directement, on ne 
voit pas la différence. 


Mais si, c'est facile ! 


Si ce qui précède vous donne l'impression que 
“tout ça est bien compliqué”, rassurez vous : il 
est toujours difficile d'expliquer avec des mots 
des choses évidentes pour qui les voit. A l'usage, 
c'est facile, surtout si vous utilisez un logiciel 
comme VCR Companion qui permet de gérer 
les titres avec défilements horizontaux ou verti- 
caux, les effets spéciaux, les attentes clavier etc. 


Vous désirez refaire Roger Rabbit? Utilisez 
Cartooners ou bien Art and Film Director. Une 
fois votre animation ordinateur prête, incrustez- 
la sur votre image vidéo. 


Vous désirez faire du sous-titrage ? Utilisez un 
programme de dessin et réglez enfin chez vous 
ce que la télévision ne fait jamais, à savoir placer 
votre texte dans un rectangle en bas de l'écran, 
et éviter que le sous-titrage ne soit indiscernable, 
à cause de la couleur de l'image vidéo. 


Chapitre 4 : une nouvelle 
tablette graphique. 


Quelle nouvelle tablette graphique ? La Video 
Overlay Card, bien sûr ! 


Pour comprendre cette idée, il suffit de compa- 
rer l'image vidéo à un dessin sur papier et l'image 
ordinateur à une feuille de papier calque. Placez 
votre calque sur votre dessin et recopiez-le par 
transparence. De même, avec la carte Overlay, 
placez votre image vidéo sur le moniteur et avec 
n'importe quel programme de dessin, recopiez- 
la pour en faire une image-ordinateur ! 


w Petit mode d'emploi pour décalquer un des- 
sin, un bâtiment, un portrait etc : 
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+ placez votre camescope sur un pied, ou utili- 
sez un film avec un plan fixe assez long, ou en- 
core utilisez un appareil photo vidéo. 

+ lancez votre programme de dessin. 

+ visez (ou lisez) l'image que vous voulez repro- 
duire. 


Grâce à la carte Overlay, l'image vidéo prise par 
la caméra apparaît sur le moniteur de votre GS. 
Votre programme de dessin met à votre disposi- 
tion tous les outils pour dessiner, crayon, droite, 
rectangle, couleurs etc : à vous d'utiliser ces ou- 
tils pour recopier l'image vidéo et obtenir une 
image ordinateur, que vous pourrez sauvegar- 
der sur disquette et retravailler ensuite à loisir. 


(Voir sur la disquette un dessin des chevaliers du zo- 
diak, recopié avec cette technique par un utilisateur 
de GS... âgé de 8 ans). 


L'avantage de la carte par rapport à une tablette 
graphique, c'est qu'il n'y a pas de limite de taille, 
ou de lieu : il suffit d'avoir le film ou la photo de 
l'objet à recopier, alors que la tablette graphique 
exige absolument une feuille de papier comme 
modèle. 


J'espère avoir répondu à la plus grande partie de 
vos questions concernant tous les problèmes de 
cartes de digitalisation, de sortie sur un magné- 
toscope ou de carte Overlay. N'oubliez pas que 
le sujet peut paraître compliqué en le lisant, 
mais qu'à l'usage, c'est assez simple. 


Adresses : 


Convertisseur PAL/SECAM/NTSC : Universal Electroni- 
que, 23-29 rue de Stephenson, 75018 Paris. 

Visionary GS : Virtual Realities Inc, 4129 University Ave- 
nue, Riverside, CA 92501, USA. 

Computer Eyes en NTSC: Program Plus, 75 Research 
Drive, Stratford, CT 06497, USA. 

Computer Eyes en Pal: ToolBox, 6 rue Henri Barbusse, 
95100 Argenteuil. 

DGA-1 en Pal : Microsphère, 118 Boulevard Richard Le- 
noir, 75011 Paris. 

Général Vidéo : 10 Boulevard de Strasbourg, Paris. 

CGV : Compagnie Générale de Vidéotechnique, Stras- 
bourg. 

Musicomp: Bottmingerstrasse 1, CH 4102 Binningen, 
Suisse. 


INDLR: ToolBox Mag et ToolBox déclinent toute 
responsabilité quant à l'exactitude des informations 
techniques et commerciales données dans cet article, 
qui n'ont aucune valeur contractuelle. Nous ne 
sommes pas assez compétents pour vérifier! 

Toute précision doit être demandée à l'auteur lui- 
même, par courrier, sous enveloppe à son nom 
adressée à ToolBox Mag, avec enveloppe timbrée 
pour la réponse. Merci!] 
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Bernard 


Crackpoty Boot Selector v1.1 





Un utilitaire bien pratique pour choisir le péri- 
phérique de boot. Ce petit programme s'installe 
à la place du fichier de démarrage PRODOS et 
permet de choisir le lecteur de démarrage en ap- 
puyant sur la touche G lors du boot. Une page 
graphique avec un Welcome sonore du plus bel 
effet vous permet alors de cliquer sur une des 
icônes des périphériques en ligne. On peut boo- 
ter sur une partition du disque dur, sur un lec- 
teur 5 1/4 en slot 6 ou sur un lecteur 3 1/2 en 
slot 5 (lecteur 1 ou 2 !). On peut même booter di- 
rectement sur la ROM ou sur la RAM. 

Autre fonctionnalité du CBS, on a la possibilité 
de diminuer automatiquement le volume sonore 
en fonction de l'heure (les noctambules fanati- 
ques des jeux d'arcade apprécieront). 

Un système GS/OS 4.0 modifié est fourni sur la 
disquette, autorisant le lancement d'applications 
gourmandes en mémoire lorsqu'on ne dispose 
que d'un méga de RAM : on peut par exemple 
installer ce système sur une partition du disque 
dur et booter directement dessus. 

Un shareware modique (50F) qui se révèle vite 
indispensable. 


C & M Band, 25 rue des Alleux, 21490 Saint Julien 


TransProg 2.1 






Notre éminent collaborateur François Uhrich 
vient de terminer la dernière version de Trans- 
Prog. Cet utilitaire permet de lancer une appli- 
cation à tout moment (sans revenir dans le Fin- 
der), de lancer une application lors du boot et 
même de protéger votre GS en demandant un 
mot de passe lors du lancement du système ! 
Cette version est considérablement améliorée 
par rapport à la 1.0: TransProg est désormais 
accessible dans la barre des menus (clic sur une 
icône) ou à n'importe quel endroit de l'écran 
(G-Clic). Les applications ‘mémorisées’ ne sont 
plus limitées à 40, il fonctionne sur les ROM 01 
et 03. 

Quelques fonctionnalités annexes trahissent le 
souci de perfection de l'auteur : purge de la mé- 
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Made in France ::; 












moire, réglage de la vitesse du processeur selon |: 







Fournier 





l'application lancée, exécution d'une application 
en cliquant sur un document... 

Pour les 90F du shareware, vous aurez en prime 
FonteDAlnstallateur 2.0 qui permet de lancer 
ou ôter des accessoires et de charger les fontes 
de votre choix à partir de toute application. 











F. Uhrich, 67 Allée de la Robertsau, 67000 Strasbourg. 


MémoCartes 1.0 







La délicieuse passionaria du GS nous offre ce 
mois-ci un autre logiciel pour nos chères têtes 
blondes. Le principe du jeu est simple: des 
cartes sont affichées, face cachée; le joueur doit 
trouver les paires ayant la même figurine. Un 
excellent jeu faisant appel à la mémoire visuelle 
et qui convient parfaitement aux enfants de 2 à 
99 ans. Il est possible de dessiner ses propres 
cartes afin de personnaliser ce jeu. 

Ce logiciel est diffusé en shareware (100F). 
Jouez-y sérieusement avec votre fils de 7 ans, il 
est probable qu'il vous flanquera une rouste 
mémorable : ils sont moins forts en assembleur, 
mais ils ont plus de mémoire que nous ! 

















Carole Fox, Logement de fonction Ecole Azéma, 1 rue 
Mgr Mondon, 97400 Saint Denis, LA REUNION 


































L s Enfin, ce > n'est jpas une à condition mais 
quand les auteurs de shareware, qui font 
quelque argent avec cette Chroniqu 
gent à s'abonner ToolBox me cela nous 
encourage à contin 5 
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Soundsmith 0.95b 


Logiciel de composition musicale écrit par l'au- 
teur de Jigsaw et Laser Force. Ce shareware à 20$ 
permet également d'inclure vos musiques dans 
vos propres programmes grâce à l'outil 219 paru 
dans ToolBox Mag 2. Les sons produits par la 
carte Sonic Blaster sont récupérables par le logi- 
ciel qui utilise par ailleurs des instruments au 
format ASIF ou PSWV. Entre autres possibilités, 
vous avez accès à 14 pistes sonores en stéréo- 
phonie, vous pouvez définir des effets spéciaux 
et composer vos musiques en entrant directe- 
ment les notes. 

La version 1.0 (qui ne saurait tarder) sera com- 
plètement compatible MIDI et permettra donc 
de connecter le GS avec un synthétiseur afin de 
créer aisément des musiques et bibliothèques de 
sons. 

Si vous joignez une boîte de 10 disques vierges à 
votre chèque bancaire, l'auteur se fera un plaisir 
de vous fournir des musiques prêtes à être écou- 
tées ainsi que des instruments aussi variés que 
nombreux (une bonne centaine au bas mot). 


Huibert Aalbers, c/Madre Antonia Paris, 6, K2, 126, 
28015 Madrid, ESPAGNE 


QSO et QSL de F6G@K 


Voici comment F6GOK lui-même présente 
DxFile : 


« Ce soft n'est pas destiné à enregistrer des 
milliers de Qso, mais plutôt à faire le bilan des 
Qso réalisés dans le but d'obtenir un diplôme 
comme le DXCC, le WAZ ou même le DDFM, 
par exemple. Il vous permet, entre autres possi- 
bilités : 


+ La saisie, la modification et la suppression 
d'un Qso. 

+ L'impression de la liste de tous les Qso du fi- 
chier. 

+ L'impression d'une liste triée (fenêtre cou- 
rante). 

+ La recherche d'un ou plusieurs Qso, par pré- 
fixe, par date ou par pays Dxcc. 

+ L'impression d'étiquettes pour cartes Os. » 


Limpide, non ? Pour ceux qui ne visent pas en- 
core le DDFM, sachez que ce programme est 
une gestion de fichier dédiée pour radio-ama- 
teurs, qui marche parfaitement. Les radio-ama- 
teurs sont des gens fort sympathiques, qui n'ont 
attendu ni les Modem ni le 3615 pour commu- 
niquer tranquilles. 


Vous aurez DxFile pour la somme ridicule de 
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50 F de shareware : il suffit d'avoir un Qso avec 
F6GQK. Sinon, vous pouvez toujours écrire à 
l'un de nos lecteurs : 


Christian RAMADE, 7 Rue de Quelisoy, 56260 Larmor- 
Plage 


La démo de Noël 


Après Modula, voici un nouveau cadeau du 
FTA: Christmas Demo, une géniale démo gra- 
phique/son, avec du texte écrit dans la bordure, 
etc, en freeware bien sûr. 

Une des raisons de ces superbes démos, c'est la 
confrontation avec quelques programmeurs 
américains. Eh bien, amis californiens, soyez-en 
conscients: pour les Ordinateurs et les Pommes, 
vous êtes les meilleurs, OK. 

Mais pour les vins et les animations GS, les crus 
du Vieux Continent sont insurpassables! 


FTA, 34 Rue des Rotondes, 21000 Dijon. 


Mac Eraser (“) 


Vous trouverez sur la disquette, dans le catalo- 
gue /MacÆEraser, un petit programme 
(ERASE.SYSTEM) d'Olivier Goguel. Il trans- 
forme toute disquette Apple II GS introduite 
en slot 5, drive 1 de votre GS en disquette 800k 
Macintosh (ce sont les mêmes lecteurs, avec le 
même formatage physique de disquettes). 
Apparemment, le Mac ne connait pas la diffé- 
rence entre “effacer” une disquette (Erase) et 
“formater” une disquette: il reformate physi- 
quement à tous les coups, au lieu de simple- 
ment réécrire un catalogue vierge. Pour trans- 
former une disquette Mac en disquette GS, il 
suffit d'utiliser la commande ‘“Erase” de 
GS/OS$ (avec Prosel par exemple). Pour effacer 
une disquette Mac, c'est désormais tout aussi 
simple: il suffit d'un Apple II GS... 


Le source de ce petit programme paraîtra dans 
un prochain ToolBox Mag, car il contient une 
intéressante “bidouille”: la revectorisation des 
appels SmartPort pour lui faire écrire des blocs 
de 524 octets (incluant les “tags” du Mac) au 
lieu de 512. 


Notons que ce programme contient un amu- 
sant “proverbe du jour”. ToolBox Mag, étant 
un magazine dédié à l'Apple II GS, ne peut se 
prononcer sur le Mac, et laisse à Olivier la pa- 
ternité et la responsabilité de son affirmation: 
nous ne l'approuvons pas, mais nous ne le désap- 
prouvons pas non plus. 


JYB 
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Un exemple de programme en TML Pascal Il : 


MasterMind GS :::; 


Raoul Barbieux 


Comment jouer à MasterMind GS (1) 


Lancez l'application Master Mind GS. Un menu 
d'aide vous rappellera comment on joue au Mas- 
terMind, si vous en avez besoin. 


Telle est la force du GS, et des applications 
“Desktop” produites par TML Pascal Il: en fait, 
aucune explication n'est nécessaire pour s'en ser- 
vir.….. 


L'outil TML Pascal 2 (“ 


La ToolBox du Système 5, un vrai Paradis, mais 
au bout d'un chemin d'Enfer !! 


Pourtant, rouler en TML Pascal 2, c'est le haut 
de gamme, et avec toutes les options : un éditeur 
qui n'a rien à envier aux meilleurs traitements 
de texte, un compilateur à détecteur d'erreur de 
syntaxe, et surtout une gestion de ressources, la 
boîte automatique ! 


Et malgré cela, au début, on patine... Pourtant, il 
y a de la documentation le livre de 
TML Pascal 2 (en anglais..), l'ouvrage Boîte à 
Outils de l'Apple I GS (en français, mais les 
exemples sont traités en C..), Apple I GS 
Toolbox Reference (3 énormes volumes, en an- 
glais..). Mais quand on vient du Basic AppleSoft 
et de l'Assembleur du 6502, tout ça, c'est encore 
du chinois. 


Heureusement, il existe un outil miracle : une 
disquette d'exemples en TML Pascal 2, “TML 
Source Code Library 2", qui illustre largement les 
possibilités de la ToolBox. C'est bien fait, c'est 
indispensable. 


Le programme Master Mind que je vous pro- 
pose est un exemple de plus qui, je l'espère, 
vous fera gagner du temps, comme ceux de la 
disquette TML m'en ont fait gagner. 


La gestion de Ressources 
de TML Pascal 2 (5) 


La ToolBox est un ensemble de routines que l'on 
peut appeler en leur ‘”’passant” une collection de 
paramètres en tous genres. Avec la version pré- 
cédente de TML Pascal ou avec GS Basic, un ap- 
pel à la ToolBox était une opération lourde, com- 
pliquée et parfois décourageante. TML Pascal 2 
résume cette opération à renseigner une ou plu- 
sieurs fenêtres de dialogue (parfois même ren- 
seignées par défaut !) et à la référencer à une 
Ressource. Cette référence de Ressource est en- 
suite utilisée comme paramètre dans un appel 
simplifié à la ToolBox. Si, si, vraiment, c'est for- 
midable ! 


Le Programme MasterMind GS (SG “) 


Le jeu est construit autour d'une image (‘Image- 
Jeu") qui représente l'ensemble des décors, c'est 
à dire la planche de jeu, la boîte à pions, l'af- 
fiche, les pions et les clous. Cette image, dessi- 
née avec PaintWorks Gold, c'est le fichier 
“MMJEU”, (format Paint, compacté). Elle est 
chargée au démarrage de chaque partie (Procé- 
dure “Demarrejeu"} par la Procédure “Chargel- 
magejeu", sous la forme d'une pixelmap repré- 
sentée par le LocInfo “ImJeuLI"; le pointeur du 
grafport associé est “e/mageJeu”. 

C'est dans ce Locinfo que l'on prélève les décors 
pour les afficher dans les fenêtres visibles à 
l'écran pendant là partie, fenêtres définies par 
les pointeurs de leur grafport “eFenTrous", 
“gFenCoul" et “gFenRep”. L'affichage de ces dé- 
cors s'effectue par l'appel des Procédures “Des- 
sTrous", “DessCoul" et “DessRep". Ces Procé- 
dures sont particulières: dans le listing, elles 
sont précédées de “{$DefProc}"; de plus, dans la 
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Procédure “SetUpWindow”, le troisème para- 
mètre de la déclaration des fenêtres de pointeurs 
“gFenTrous”, “gFenCoul" et “gFenRep”, est 
l'adresse de cette procédure particulière, “@ + 
nom de la procédure”. Ces particularités permet- 
tent la mise à jour automatique des fenêtres, soit 
lorsqu'elles sont sélectionnées, soit lorsqu'une 
fenêtre superposée est retirée, soit lors d'un défi- 
lement par des ascenseurs. 

Tout au long de la partie, sur la planche de jeu, 
le joueur va provoquer l'affichage de pions de 
couleur et la réponse du GS va provoquer l'affi- 
chage de clous noirs ou blancs. Ces pions et ces 
clous sont des portions de l' “Imageleu“ et leur 
affichage, par les procédures “DessPion” et 
“DessClou”, se fait d'abord à l'écran dans le 
grafport de pointeur “gFenTrous” de la fenêtre 
qui affiche la planche de jeu, maïs aussi dans le 
grafport du Locinfo “’ImJeuLl" pour assurer les 
mises à jour éventuelles, 

Pour une nouvelle partie, il faudra recharger 
l'"Imageleu" d'origine, puisque la précédente est 
surchargée par les dessins de pions et de clous. 


Les autres fichiers du programme 


"MM.DESK.Scr" est le dessin en page de garde 
dessiné aussi avec PaintWorks Gold (format 
écran). Il est installé comme fond du bureau 
dans la procédure “Dess Accueil", c'est à dire que 
c'est le dessin qui sera vu à l'écran si aucune fe- 
nêtre n'est sélectionnée. Il a été créé avec la 
même palette de couleurs que le dessin 
"MM.JEU”, et c'est en le chargeant par la procé- 
dure “ChargelmageDesk” que l'on installe cette 
palette à la place de la palette par défaut du Sys- 
tème. 

“MM.AIDE" est le fichier Ascii, créé avec 
AppleWorks GS, qui contient la règle du jeu ap- 
pelée par le menu Aide. 

“MM.PALM" est un fichier binaire qui contient 
le palmarès des meilleurs scores des joueurs. Un 
tableau initial a été créé par la procédure “Cre- 
TableauPalm" où tous les noms sont “IN- 
CONNU"”, toutes les dates sont “10-89” et tous 
les scores sont de 9. Les scores inférieurs ou 
égaux à 9 entrent dans le classement par l'algo- 
rithme à la fin de la procédure “GagnePerdu”. 
“MM.TACO" est un fichier de 24 tables de cou- 
leurs construit par la procédure “CreTableCou- 
leur”. Ces tables sont utilisées par les procé- 
dures “Apparaitre” et “Disparaitre” qui créent 
les effets de fondu aux changements d'écrans. 
Charger ce fichier étant plus rapide que l'exécu- 
tion de la routine qui crée les 24 tables, on 
adopte ! 
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Quelques tuyaux complémentaires 


Barre de Menu et Menus en couleurs : tout sim- 
plement par l'instruction  SetBarColors 
(procédure “SetlpMenus"). 


Encadrement de fenêtres en couleurs : un poin- 
teur de paramètres couleur (“CoulFen”) a été 
mis en commun pour toutes les fenêtres (procé- 
dure “SetUp Windows"). 


Agir dans plusieurs fenêtres en gardant tou- 
jours la même active : c'est possible ! (procédure 
“MainEnventLoop"). 


Le curseur en montre, c'est gratuit : il suffit de le 
saisir pendant qu'il est à l'écran ! (corps princi- 
pal du programme, en fin de listing). 


Des listings imprimés en condensé, c'est de 
l'économie de papier; voici une suggestion de 
paramètres d'impression : ” Esc Z Ctrl-G Ctrl-à 
Esc q Esc B Esc L O0 1 6", qui donnent les ca- 
ractères américains, compressés, 8 lignes par 
pouce, une marge de 16 caractères, et 90 lignes 


par page. 
Help! Help] 


À propos de listings, certains caractères dans le 
listing peuvent se comporter comme des carac- 
tères de contrôle pour l'imprimante (exemple : é 
ou è dans un commentaire entre { }, qui dé- 
clenche l'impression des caractères en double 
largeur à la suite de ce commentaire). Si un lec- 
teur bien inspiré à trouvé quel caractère peut 
déclencher un saut de page, je suis preneur de 
l'information ! 


INDLR: je n'ai pas vérifié, mais je parie un ZXS1, 
une carte 2+ pour Mac LC, où un Mac 128, que j'ai 
trouvé ! À tous les coups, il s'agit du “bug du bir 7” 
ou “bug du AND #$7F" que j'avais signalé dans 
Pom's, Avant d'imprimer, TML met le bit 7 à zéro. 
Du coup, les caractères entre $80 et $9F sont en- 
voyés comme caractères de contrôle à l'imprimante. 
Voyez le tableau pages 18/19, et enlevez 880: “é” et 
“&" deviennent $0E et $0F, soit Control-N et 
Control-O ! Comme vous voulez un saut de page 
(Control-L), il vous faut un $0C + 580 = $8C, c'est- 
à-dire un “4” (aring). Le reste page 18. Comme 
quoi, parmi les “has-been du 8 bits”, il y a même 
TML ! J faut vraiment jeter Appleworks-8 ! JYB] 


Comment entrer à une position aléatoire dans 
la table des nombres aléatoires ? Dans la procé- 
dure “Initialisations" l'argument de “SetRand- 
Seed” a été fabriqué à partir de valeurs des date 
et heure du système; ça marche, mais il y a sûre- 
ment mieux ! Un lecteur a-t-il la solution ? 
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{ 
Program MastorMind { Raoul Barbieux - version 1 - nov 90 } 





{ 
USES Types, { initialisalion des outils } 


| 





OO mamans 





Locator, Memory, MiscTool, QuickDraw, { Outil 1-2-3-4 } 
Events, Desk, IntMath, TextToo!, { Outil 6-5-11-12 } 
Controls, Windows, Menus, { Outil 16-14-15 } 

LinoEdit, Dialogs, QDAux, Print, { Outil 20-21-18-19 } 
Scrap, Stdfile, Fons, Lists, { Outil 22-23-27-28 } 
GSOS, TMLUliils, Resources, 

ToxtEdf; { Outil 34 } 


CONST 


{ 





Noir=0; GrisF=4; GrisCI=11; Blanc=15; 
Bleu=1; Marron=2; Vert=3; Rouge=12; Orange=13; Jaune=14; 
{ Menus } 
kAppleMenulD=1; 
kApropositem=301 ; 
KMenuMenu|D=2; 


kNouveauJeultem-204; kSolutionltem-306; kPalmaresltem=207; 


kAideltem=309; kQuittertem=311; 
{ Fenetres } 
KNomJoueur-22; KForco1=24; kKForce2225; 
KFor063=26; kEsC=27; KOK=28: 
KTexteAide-30; 
kBouton=d1; 
KSolPer=45; KStop=46; kKOKSol=47; 


VAR 


mmid: Integer; gStanStopRel: Ref: 
gMainEvent: EventAecord; Code: Integer; Termine, Sortie: Boolean:; 
Montre, Fleche: CursorPtr: 
aFenAide, gFenTrous, gFenCoul, gFenRep, 
gFenNJ, gFenPalm, gFanScore, gFenSol: WindowPtr; 
CoulFsn: WindColor; 
1, J, K, L, C: Integer; 
Trou: array[1..5] of record 

ReelT, ReciF, RectPfi, RectPij, RectRf, RectRf: Rect: 
CoulP; Integer; end; 
ChoixC: array[1..9] of record 

RectC, RectP: Rect; Coul: Integer; end; 
Cache: array{[1..5] of record 

RectP: Rect; CoulP: Integer; end: 
Clic: Point; 
Horloge: packed array[0..20] of byte; Date: Str256; 
Sec, Min, Heure, Jour, Mois, An: Integer; 
NomJoueur: String{8}; Force, Score: Integer: 
Gagne, LiilSauvePalm: Boolean; 
hC1Nom Joueur: CilRecHndl; hLENomJoueur: LERecindi, 
Palm: array{1..3,1..8] of record 

Nom: Stringf8]: Mois, An, Soore: Integer; end; 
CreateRec: CreateRecGS; parmsOpen: OpanRecGS; 
parmsEOF; EOFRecGS; Erreur. Boolean:; 
parmsReadWrite: I0RecGS; parmsClose: RafNumReoGS; 
DestroyRec: NameRecGS: 
glmScrHndl, glmCompHndl, gImDecompHndl, gTextHndl: Handle; 
PPixParam: PaintParam; MasqHndl: RgnHandle; 
SourcaRed,DestRect: Rect; 
DeskL!, ImJeul: Locinto; glmagedeu: GrafportPir: 
SrcRectD, SrcRectT, SrcheciC, SrcRectR: Rec: 
RectFlecheFT, RectFlechel}: Rect; 
TableCouleur: array10.24] of ColorT able; 


procedure CreateFichier(NomFichier: Str255); 
var 


Fichier: GSString255: 
in 


beg 
P2GSString(NomFichior Fichier); 


with CréeateRec do begin 
pCount= 5;pathname:= @Fichier, accass:= $C3; 
file Type:= $06; auxType:" $00; storage Type:s 401; 


end; 
CreateGS(CreateRec); 





end; 


procedure OpenFichierGetEOFINomFichier: Str255); 


var 
Fichier: GSString256; 
in 
P2GSString{NomPichier Fichier); 
with parmsOpen do begin 
pCount:= 2; palhname:= @Fichier; 


end; 

OponGS(parmsOpan}; L 

if _ToolErr <> noError then begin 
Erreurs true: 
Exit{OpenFichierGetEOF}; 

end: 


with parmsEOF do begin 
pCount:= 2; refnum:= parmsOpen.refnum; 


end; 
GetEOFGS{parmmsEOF); 
end: 


begin 
with parmsReadWrite do bagin 
pCount.- 4; refnum:. parmsOpen.reinum; 
databuflar:= DastPtr: requestCount:- FileSize: 
end; 
end; 
re + 
procedure CloseFichier; 
begin 
with parnsClose do begin 
pCount:= 1; refnum:= parmsOpen.ratnum; 


end, 
CleseGS(parmsClose); 


fe © — ——— | 


procedure ChargelmageDesk; 
var 
srcTablePir. Pr; 


bagin 
OpenFichierGelEOFl'MM.DESK Sr); 
glmScrHndl:= Newklandie(parmsEOF.s0f mmid, 
altrPage+atirFixed+attrLockad nil}; 
ParmsReadWriteFichier(glmScrHndl*, parmsEOF.e0f); 
ReadGS{ParmsReadWrite); 
CloseFichier; 
srcTablePtr= Pointer(Ord4{gimScrHndi"}+$7E00); 
BlockMoveisrcTablePtr Pointer($E19E00),512)}; 
With Desk | do begin 
poriSCB:-= GetMasterSCB; 
plrToPiximage:= glmScrHndi"; 
width:= 160: 
SetRect{boundsRect,0,0,320,200}; 
end; 
HUnlock{glmScrHndl}; 
end: 


procedure ChargelmageJeu:; 


var 
DstPtr: Ptr; DstSize: Integer; Ignore: Integer: 

begin 
OpenFichierGetEOF!MM.JEU}; 
glmCompHndi:= NewHandls(parmsEOF 80f mmid, 
atirPage+attrLocked nil); 
ParmsReadWniteFichier(gimCompHndl*, parmsEOF.eof) 
RéadGS{ParmsRéadWrite)}; 
CloseFichier: 
gimDecompHndl:= NewHandie(2*$7D00,mmid, 
atiPage+atirFixed+attrLocked nil); 
DstSize:= 2*$7000; DstPtr:= gmDecompHndl*; 


Ignore:= UnPackBytes{pointer(ordd{glmCompHndi)+$222), 


parmsEOF eot-$222 DstPtr,DstSize); 
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with ImJeuL! do begin 
poriSCB:= GetMasterSCB; 
PIrToPiximage:= glmDecompHnd/*: 
Width:= 160 
a tie 


end; 

OpenPort(glmageJeu}; SetPortLoc{ImJeuL 1}; 

CPR NMEMEERE HUnlock(glmDecompHndl); 
enc; 


ee nee me ne ee ee me ee 


roue ChargeTexteAide: 


etre 


ter EOF.60f, mmid,attrLocked, nil); 
Load Wo rte 


xtHndl*, parmsEOF.eof); 
ReadGS(ParmsReadWnite); 
CloseFichier; 
TESetText{teTextisHandie + teDatalsToxtBlock, 


TETentRef(gTextHndl), GetHandleSize(gTextHndi),0,TESiyieRet{ni 


TEHandie(GetCtHandleFrom|D(gFanAide, kKTexteAide))}; 
HUnlock(aTexdtHndl); 


ere mn ee mere mes ee seen mue mes de mme à 


] 
10 SauveTableauPalm:; 


anFichierGoEOFTMM. PALM}; 
ParmeReadWntsFicier/@Painf. 1] Nom, 3815); 
WiiteGS{ParmsReadWrie); 

CloseFichier: 


procedure CreTableauPaim, 


n 
for l:= 1 to 3 do lor J:= 110 8 do begin 
wiüh Palm£l,J} do begin 
Nom:="Inconnu'; Mois:= 7; An:= 90; Score:= 9; 
end; 


end; 
CreateFichierl' MM PALM"): Sauve TableauPalm; 
end; 


{ } 
procedure ChargoTableauPalm:; 


begin 
OpenFichierGetEOF{MM.PALM'}; 
if Erreur then begin 
CreTableauPalm; Erreur. false: 
nd 


e 
else bogin 
ParmsReadWriteFichier(@Palm[ 1,1] Nom, 3815}; 
ReadGS{ParmsReadWrite} ; 
CloseFichier: 


COTÉES CEECESSERPECE 


ru SauveTableCouleur: 


ichiorGEOF( MMTACO'},; 
ParmsReadWriteFichier(@TableCouleurO], 25*16*2): 
WriteGS{ParmsReadWnite); 

CloseFichier: 


ri 
procedure CreTableCouleur; 
var 
Cout Integer, 


bagin 
GetColorTable(O, TableCouleur{0]}; SetColorT able{7,TableCouleur(0)); 


for l:= 1 to 8 do bagin 
lor J:= 0 to 15 do bagin 
Coul:= GetColorEntry(7 J): K:= Cou; 
it K> $7FF then Coul:= Coul-$100; 
it K< 5700 than Coul:. Coul4$100; 
SaColorEntry{8,J,Coul}; K:= K-$100"trunc{K$ 100}: 
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itK> $7E then Coul:= Coul-$10: if Ke $70 ne Coul:= Coul+$10; 
SetColorEntry(9,J,Coul}; K:= K-$10 40}; 
ifK> $7 then Coul:= Coul-$1; it K< $7 then Coul:= Coul:$1; 
SelColorEntry(10,J,Coul}; 
end, 
for J:= 0 to 2 do GetColorTable(B+J, TableCouleur[3"1-2+J}}; 
SatCalorTable(7 TableCouleur[3* {fr 


end; 
CreateFichierl'MM.TACO",; SauveTablaCoulsur, 


| 
procedure ChargeTableCouleur: 


cogn 
OpenFichierGetEOF('MM.TACO'}; 
it Erreur then begin 
CraTableCouteur, Erreur:= false: 
end 
else begin 
ParmsReadWriteFichier(@TableCouleur|O], 25*16°2); 
ReadGS(ParmsReadWrite); 
CloseFichier: 
end; 
end; 


procedure Disparaitre; 


for = 1 10 24 do tor J'= 1 to 40 do SetColorTable(7 TahleCouleur([]); 
end: 


d——————— 


procedure Apparailre: 


begin 
for l:= 23 downto © do for J:= 1 to 40 do 

SetCalorTable{?,TableCouleur{[]}; 

end, 

fes nnmcsmmscmesmesenermemee 

function RectDec{Rectangle: Rect}: Roct; 

begin 
OifSetRect{Rectangle,0,-GetContentOrigin(gFanTrous) v}; 
RectDec:= Rectangk: 





+ } 
procedure PPixels(FenDestPir: WindowPtr; Mask: Boolean); 
begin 
MasqHndl:= NewAign; OpenAgn; FrameOval( DestRect); 
CloseRgn(MasqHnd!}; 
with PPixParam do begin 
ptrToDestLocinto:= LoclnfoPtr{FenDestPtr); 
maskHandlé:= nil, 1 Mask then maskHandie:= Handta(MasqHndl); 
end; 
PaintPixels{P PixParam); 
DisposeRgn(MasqHndl); 
end ‘ 


{$DefProc} 
procedure DessAccueil; 


begin 
PPToPort{LocintoPtr{@Deskl 1}, SrcRectD,0,0 modeCopy): 
end, 





ne) 





fmmommmmmranee 
{$DelProc} 
procedure DessTrous: 


begin 
PPToPont{LocinfoPtri@imeull),SrcRectT,0,0 modeCapy); 
end; 


(SDoProc 
procedure DessCoul. 


begin 
PPToPon{LocinfoPtr(@lmJeul !),SrcRectC,0,0, modeCopy}; 
and: 


$DofProc} 
procedure DessRep; 
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in 
PPToPon(LocinbPtr(@lmJeuLl}SrcRectA,0,0,modeCopy}; 
MoveTo(12,9}; DrawString{Concat{ Joueur :' NomJoueur)}; 
MoveTo(162,9): DrawString{Concal( Force ',Int2String{Force})); 
DrawControls{gFenRep); 


DaPre 
procedure DessScore, 


begin 
DrawControls(gFanScore): 
SetPort(aFenScore), MoveTo(30,20); 
it Gagne then 


DrawString(Concat{ Gagne au ‘Int2String{Score}.'eme Coup) 
ue DrawString{Concat('Perdu au',Int2String(Score),'eme Coup'}}; 


begin 
DrawControls{gFenAide); 
end; 
procedure DessPion; 
begin 
SourceRect:= ChoixC{TrouC] CoulP].RectP; 
DestRect:= RectDec{Trou[C]. RedPit}; PPixels{gFenTrous, true); 
DestRect:= TroufC].RedtPij; PPixels(@lmJeuL|, true); 
end; 


eee —] 


} 
procedure GlissePion, 
var 
N, Dx, Dy: Integer, Dest. Rect; 
in 


ile> 9 then begin 
Dest:= RectDec(Trou[C].RectPf}; 
Dx:= 260-Dest Left; Dy:= 191-40-Dest Top: 
for N= truno({Dx-52)25) downto 1 do begin 
D: trunc{25"N°Dy/Dx); Dx:= 25°N; 
DestRect:= Dest: OffSetRect(DestRect,Dx, Dy); 
il DestRect Top>= 0 than begin 
SourceRect:= ChoixC{[Trou[C].CoulP} RectP 
PPixels(gFenTrous, true): 


SourceRact:= Trou[C} RectPi; OffSetRectiSourceRect,Dx Dy}: 


PPixelsigFenTrous, true); 


t 
procedure DessClou: 


begin 
DestRect:= RectDec{Trou[K] RactRft); PPixels(gFenTrous, true); 
DestRect:… TroufK] RectRij: PPixels{@ImJeull, true}; 


procedure GlisseClou; 
var 
N, H: Integer, RectClou: Ract, 


begin 
H:= RectDec{TroulK] RectAf).Top; RectClou:= SourceRect; 
tor N:= trunc{H/8) downto 1 do begin 


DestRedt:= RectDec{TroulK].Rectft: OffSetReci{DestFiect.0.-8"Nij: 


PPiels(gFenTrous, true); 
SourceRect:= Trou[K] RectRi; OHSetfect(SourceRact 0,-8*N}; 
PPixels(gFenTrous, true); 

rcaRetl:= RactClou: 


end, 
(—- nomma mssssnpes) 


procedure DescendFleche:; 
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begin 
SetRect(SourceRect,263,239,275,276); 
DestRed:= RectDec{RectFlecheFT); PPixels(gFenTrous, lalse); 
DestRect:= AectFlechelJ; PPixels(@lmJeuL!, false); 


SetRect(Rectangle, 12,11,127,30); 
SetPort(gFenRep); 
SatSolidPenPat(GrisCt}; PaintRect{Rectangle); 
SetSolidPenPat{Marron}; FrameRect(Rectangle}: 
OffSetRect{Aectangle, 0,13); 
SetPort(glmageJeu); 
SetSolidPenPat(GrisCl), PaintRect{Rectangle); 
SetSolidPenPal{(Marron}; Framefect(Rectangle}; 
for l:= 1 to 5 do begin 
SourceRect:= ChoixC{Cache||] CoulP].RectP; 
DestRect« Cache[l] RectP, PPixels(gFenRep, true); 
OffSetRect{DestRect.0,19); PPixals{@lmJeuLl, true); 
end; 
D D SE EN 


procedure GagnePerdu; 


var 
Bouton: Str255; hCtiBoulon: CtlRecHndl; 

begin 
DessSol; 
Soore:= L: 
it gagne then Bouton:= ' BRAVO else Bouton:="BEURK' 
hCtBouton:= GalCtlHandieFromlD(gFanScore kBouton}; 
{SatCtiTitle{Bouton,hCtiBouton}:} 
SaledWindow(gFenScore); ShowWindow|aFenScore); 
SetCursor(Flache*}; 
gMainEvent wmTaskMask:. $001FFF77; 
sortie:= false; 


repeal 
code:« TaskMaster{($FFFF, gMainEvent}; 
casse code of 
winDesk, winMenuBar, winContent, winFrame: SysBeep; 
winControl: sottie:= true; 
end, 
until sortie; 


Disparaitre: 
HideWindow{gFenScore): 
# Gagne than begin 
if Soore<. Palm{Force,8] Score then begin 
UtilSauvePabm:= trus; 
for E= 8 downto 1 do begin 
if Score> Palm[Force.I] Score then leave: 


and; 

i Scores Palm{Force,1].Score then l:= 0; 

# l< 7 then begin 
for J:= 8 downio |+2 do begin 
Palm{Force,J] Nom:= Palm[Force,J-1] Nom; 
Palm{Force,J].Mois:= Palm{Force,J-1] Mois; 
Palm[Force,J].An:= Palm[Force J-1],An; 
Palm[Force,J].Score:« Palm{Force,J-1].Score:; 


end, 
Palm/Force,l+1] Nom:= NomJoueur; 
Palm|Force +1] Mois:= Mois: 
Palm/Force +1} An:= An; 
Palm{Force, +1] Score:= Score; 
end; 
end: 
HideWindow{gFenRep); 
HideWindow{gFenCoul); HideWindowigFenTrous}; 
ClosePort{gmageJeu); DisposeHandle{gimDecompHndl); 
DisableMtem(306); 
Apparaitre: 
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1 sisi $001FFF7F; 
ang; 





Lames PositPion: 


begin 
SetPort{gFenTrous}; GlobaiT oLocal(Clic}; 
for l:= 1 to 5 do begin 
IE PtinRect{Cüic, reel rouf!].RectT}} then begin 
DessPion, C:= 1; Leave; 
end; 
end, 


fentes 
procedure ChoixCouleur; 


SetPort{gFenCoul}; GlobalToLocal(Ctc); 
for = 1 to 9 do bagin 
i PtinRect(Clic CholxC | RectC) then begin 
TroulC]. CoulP:» |; GlissPion; inc{C}; if C=6 then C:= 5; Leave; 


ScrollV: Integer; MaskFlochaHndl: RgnHandie; 
Test: array{1..5] of record 
. Prop, Sol: Boolean; end; 


(Hit 


for l= 1 to 5 do begin 
Test[{}Sol:= true; Test{|} Prop:= true; 
end: 
K:=1; 
Jor l:= 1 10 5 do begin 
if Troul|].CoulP= Cache]. CoulP then begin 
SetRect(SourceRect,299,247 307,254}; GlsseClou: 
Tesi[1} Sol:= false: Test{!]. Prop:= false; inc{K}; 


end, 
itK= 6 then begin 

Gagné: true; GagnePerdu:; 
end 


else begin 
for l:= 1 to 5 do begin 
it Test{|}. Prop then begin 
{or J:= 1 to 5 do begin 
if TestfJ] Sol then begin 
it Trou[I]CoulP= Cache[J] CoulP then begin 

SelRec{SourceRect,299,262 307,269); GlissaClou; 
Test{J].Sol:« false; Tesifi] Prop: false; inc{K}: 
Leave: 


il Le 12 then GagnePardu 

else begin 
C:= 1; inc{L); 
ScrollV:= GetContentOrigin{gFenTrous) v; 
il ScrollV <= 22"{L-7)-6 then 
SetContentOrigin(0,22*{L-7),9FanTrous); 
DescendFleche:; 


for l:= 1 to 5 do begin 
with Trouf|] do begin 
CoulP'= 9: 
OffSetRect{ReciT,0,22); OffSetRect|RectF,0,22); 
OfSetRect{RectPit,0,22); OffSetRect{RactPi,0,22); 
OffSetRect{RectRi,0,22}; OffSetReci{RectRij,0,22); 
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OffSeiRect{RectFlacheFT,0,22); OfSetRect{RectFlachel],0,22}; 


ot DemarreJeu: 
"breCout Integer, Coul: array[1..5] of Integer; | 


in 
SetCursor(Montre“}; 
NbreCoul:= 8; if Forces 3 then NbreCoul:= 9; 
for l:= 1 to 5 do bagin 
J:= abs(random}; Coul||]:= trunc{NbreCoul"(J32769))+1; 
end: 


if Forcez 1 then begin 
for l:= 2 to 5 do for J'= 1 to 1-1 do bagin 
if Coulf|]= Coul|J] then begin 
inc(Coul{1}}; 
ere 9then Coulfi]}:= 1; 
decil); leave, 


end; 


end, 
for {= 1 to 5 do Cachell].CoulP:= Coulfi]; 
Gagne:= False: Lim 1; Ci= 1; 


ChargelmageJeu; 
SetRect(RectFlecheFT,0,4,12,41); SetRect{ReciFlechell,0,50, 12,87): 
for l'= 1 to 5 do begin 
with Trou] do begin 
CoulP:= 9; 
SatRect(RedT 1"22-7,2,1°22413,19); 
SetRect(RectF|"22,8,1"22+6,13}; 
SetRect(RectPf,1°22-6,3,1"22+12,18); 
SetRect(RectPi,1"22-6,49,1"22+12,64); 
SetAect(RectAlt,|*144141,7,1"144149,14); 
SetRect(RectAi,l"14+141,53,1"14+149 60}; 
Ein 


SoMndonF ONF) ShowWindow{gFenCoul}, 
SetContentOrigin(0,0,9FenTrous); ShowWindow(gFenTrous); 
SeledWindowigFenTrous]; 

EnableMlem(306}; SetCursor(Fleche‘); 

Apparañre; 


Disparaitre; 

HideWindowigFenRep}; HideWindow{gFenCoul): 
HideWindow(gFenTrous): 

Fa gi 


LÉSetSeleci(0 Jength{Nom Joueur) ro 
gMainEvent.wmTaskMask:= $00130006 
sorie:= false; 


répeal 
code:= TaskMaster($FFFF, gMainEvent); 
case code of 
winDesk, winMenuBar, winContent, winDrag, winFrame: SysBeep:; 
winCantrol: begin 
thelD:= gMainEvent wmTaskDatad; 
case thelD of 
KOK: begin 
sorlie:= (rue; 
HandToPtr{LEGelTextHand{(hLENomJoueur), 
@NomJoueurf 1], LEGetTexiLan(hLENomJoueur)); 
NomJoueur(0]:= Chr{LEGetTextLen{hLENomJoueur)}; 


Disparaïtre; 
HideWindow(gFenNJ); 
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RS 


fes begin 
sortie:= (rue; 
DisableMitem(306); 
HideWindow(gFenNJ); 


end 

updateEvt: begin 
it WindowPtr(gMainEvent. message} gFanNJ then begin 
BaginUpdate{gFenNW}; DrawControls{gFenNy); 
EndUpdate{gFenNU); 


end; 
until sortie; 
gMainEvent wmTaskMask= $001FFF7F; 


ignore: Integer: 
begin 
Ignore:= AlarWindow(4 nil ret(1)}; 
} 





Le 

procedure Solution; 

var 

Loc Integer: 
PRES ShowWindow(gFenSol); 

DrawControls(gFenSol 


gMainEvent. wmTaskMaskc= $001FFF77; 
sortie:= false; 


rapeal 
code:= TaskMaster{$FFFF, gMainEvent); 
case code of 
winDesk, winMenuBar, winContent: SysBeep; 
winControl: begin 
thelD:= er si wmTaskDatad; 
case thelD 
KkSolPer: Soie 
KkStop: begin 
sortie:= true; 
HideWindow(gFenSol}; SelectWindow{gFenTrous); 


end, 

KOKSol: begin 
HideWindowigFenSol); 
sg = False; GagnePardu; 


id 
end; 
end 
until sortie; 
gMainEvent wmTaskMask:= $001FFF7F; 
end; 


—— 


ÉRRETR Palmares: 
begin 


SelectWindow(gFenPalr); 

ShowWindow(gFenPalm}; SetPon(gFenPalm}; 
SetBackColor(GrisCl); 

MoveTo(0,13); 

DrawString(' Force 1 Forcs 2 Force3 ‘); 

MoveTo{0,21); 

DrawStringl Nom Dat Pt Nom Dat PL Nom Dat Pt '}; 


SatBackColor(Jaune): 
for J'= 1 10 8 do for l:= 1t0 3 do begin 
if Palmll,J]Mois< 10 thon K:= 1 else K:= 0; 
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procedure MainEventLoop; 
var 


begin 
gMainEvent wmTaskMask:= $001FFF7F; { saut Selec{Window ] 


MoveTo{l"105-103,26+j"10); SetForeColor(Bleu); 


DrawString{Copy{Concat er Nom; ),1,6#K)}; 
Moi 108 2828.10) SetForeColor(GrisF}; 


(Concat(int2Sting(Paim | Mois) Int2String{Palm(l,J],An))); 
MoveTo(l"105-13,26+j" 10); SetForeCoor{Rouge): 
DrawString{int2Stnng{Palm|l.J] Score); 
 apans 


EE ES wmTaskMask:= $001FFF77; { saul manuselect } 
sortie:= false; 


repeat 
Code:= Le par dé 4MainEvent); 
case Code ol 
winDesk,winMenuBar winContent{ winDrag winFrame): SysBaep; 
winGoAway: sorties trua: 
end; 
until sortie; 
HideWindowigFenPalm}; SelactWindow(gFanTrous); 
gMainEvent wmTaskMask:= $001FFF7F; 
end; 


SelectWindow(gFenAide); ShowWindow|gFenAide); 
Le ae $001FFF77; { saut menuselect } 
sonie:= alse: 


repeat 
Code!= TaskMaster{$FFFF,gMainEvent); 
case of 

winDesk, winMenuBar, wnContent: SysBaep:; 
winGoAway: sortie true; 


until sortie: 


HideWindow(gFenAide); éxpghe, Sstiagal 
gMeinEvent wmTaskMask= $001FFF7 


Termine:= true; 
Disparaitre; 
it UtilSauvePalm then SauveTablsauPalm; 
DispossAl{mmid}; 
end; 


(ne mnmmnren mme mnenneneeneneer ee) 
MenuChoïsiltemChoisi: Integer; gFenSelect: WindowPtr: 


Termine:= taise: 


repeal . 
if FrontWindow = gFenTrous lhon begin 
SetPort(gFanTrous); 
sms 
end; 
for l'= 1 to 30 do begin 
Code:= TaskMaster($FFFF.gMainEvent); 
case Code of 
winSpacial, winMenuBar: begin 
MenuChoisi:= H\Wrd{gMainEvent wmTaskData); 
NomChoisi:« LoWrd{gMainEvent wmTaskDala); 
case HemChoisi of 
kApropositem: Apropos; 
KNouveauJeultem: NouveauJeu; 
kPalmaresltem: Palmares; 
kSolulionliem: Solution; 
kAïdeltem: Aide; 
kQuitterltem: Quitter; 


end; 
HikeMenuffalse MenuChoisi); 
end: 
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winContant: bagin SetPort{gFenTrous); SetSoldBackPat(}; 
GetMousa{Clic}; LocalToGlobal{Clic); gFenCoul:= NewWindow2{nil,0,@DessCoul ni, 
gFenSelect= pointer{gMainEvent.wmTaskData}; ReilsResourcs,Rel{3),WindParamt); 
il gFenSelect« gFenTrous then PositPion; MoveWindow(243,14,gFenCoul}; SizeWindow(76,186,gFenCoul); 
HN gFenSelect= gFanCoul then ChoixCouleur: SetPort(gFenCoul}: SatSolidBackPat(GrisF; 
if gFenSelect= gFenFlep then Reponse; gFenRep:= NewWindow2{nil0,@DessRep,ni, 
end; ReilsResource,Ref(4) rWindParamt}; 
end; MoveWindow{1,14,9FenRep}; SizeWindow{241,31,9FenRep}; 
end; SetPori(gFenRep); SetSolidBackPat{GrisCl); SalBackColor(GrisCl}; 
until Terminé; gFanNJ:= NewWindow2{nil,0 nil nil, 
end: RellsResource Ref(5) rindParamt); 
eneeenemeesenene | gFenPalm:= NewWindow2{nil,0,nil,nil, 
chtis SetUpMenus; ReilsRasource Rel(6}.rWindParamt}; 
SetPor(gFenPalm}; SetSolidBackPat({Jaune); SetBackColor(Jaune); 
““Height Integer: gFenScore:- NewWindow2{nà,0,@Dess Score nil 
begin ReilsResource, Rel(7), MindParami): 
SetSysBar(NewMenuBar2(ReilsResource, ref{1}, nil)): SetPor(gFenScore); SetSolidBackPal(Orange); 
SetMenuBar(nil}; SetBackColor(Orange)}; 
FixAppleMenu(kAppleMenulD); { ajoute les NDA } gFenSol:= NewWindow2(nil,0,nil,nil, 
Height:= FixManuBar; RelisResourcsa, Ref(8),rWindParam1}; 
SebnCokfinge Gr! 6 Orange Marron‘16}; SatPort(gFenSol; SetSolidBackPat{Vart}; SelBackColor{Vert}; 
with CoulFan do begin 
end; FrameColor. = Marron‘ 16; 
fe) TitleColor:. Noir GrisCI"16+Bleu'256; 
procedure SetUpVariables; tBarColor:= GrisC+Orange*16+2°256; {2%lignes} 
GrowColor:= Noir+Vert*16; 
InfoCotor:« Jaune 16; 
bagin end: 
ReadAsciTima(@Horoge}; Date:= "; SetFrameColor(@CoulFen nil}; 
for l:= 0 10 15 do begin end; 
Caract= chr{BAnd{Horlogel|],$7F)}; Date:= Concal(Date Caract); fe] 
end: procedure Accueil, 
Sac:= Sringai{Copy Date 162); Min:= String2int{Copy{Date,13,2)};| var 
Heure:= String21m{Copy{Date 1 : 2} ignore: Ptr: 
Jour:= Stringelnt(Copy{Date, 1,2 begin 
Mois:= StringZint(Copy{Date re An:= String2lnt{Copy(Date,7,2}); ChargelmageDesk; 
SatRandSsed(Sac*100+Min°10+Heure); Erreur.» lalse; SetRect({SrcRactD,0,0,320,200). 
ChargeTextaAide; ChargeTableauPalm; ChargeTableCouleur: ignore.= Desktop{5 Ord4{(@DessAccueil}}; 
SetColorTable{(7,TableCouleur{0]}; tor l:= 13 to 199 do SetSCB{,7); | end: 
Force:= 1; NomJoueur= ‘Inconnu’; ess | 
Scora:= 12: UtilSauvePalm:« False: begin 
hCiNomJoueur:= GetCtlHandleFromiD(gFenNJ kNomJoueur}; mmid:= MMStartUp; 
hLENomJoueur:« LERecHndl{hCIINomJoueur“ ctiData}; gStartStopRef:= StartUpTools(mmid,RefisResource Ref(1)); 
LESetText(@NomJoueurf1]lengthiNomJoueur) hLENomJoueur); if_ToolErr= noËrror then begin 
SatRect(SrcAectT,0,46,225,308); Accueil; 
SetRedt{SrcRectC,241,13,317,198); SetUpWindows; 
SetRect{SrcRactR,0,13,241 44); SetUpVariables; 
for := 1 to 5 do SatRect(Cacheli].AectP 1°22-6,13,"22+12,28); SetUpMenus; DisableMl }; 
for l'« 1 to 9 do begin Montre:= GetCursorAdr; InitCursor; Flache:= GetCursorAdr; 
SetRect{ChoixCII] ReciC, 13,19°1-9,64,19°H6); MainEventLoop; 
SetRect{ChoixC[!] RectP,296,17*1+187,254,17"1+200); end; 
end; ShutDownTools!ReflsHandie, gStartStopRef); 
ChoxC{1] Coul:= Blanc; ChoixC[2] Coul:= Noir; end. 
ChoixC{3] Coul:= Marron; 
ChoiC[4] Coul:= Bleu; ChoixC{5] Coul:= Vert; 
ChoxC{6} Coul:= Jaune: 
ChoixC{7]. Coul:= Orange: ChoixC[8] Coul:= Rouge; 
ChoixC{8] Coul:= GrisF; 
with PPxParam do begin 
ptrToSourcel.ocinto:= LocinioPtr{@lmeul |); ronde ere Merise SPA | 
piToSourcoRect:- @SourceRecl; rciale produisai logiciels | 
og - pains TopLelt; UG: ( 1 


= SetUpWindows; 


beg 
gFenAide:= NewWindow2{nil 0,@DessAide nà, 
RellsResource Rel(1) rWindParamt}; 
gFenTrous:= NewWindow2{ni,0, @DessTrous,nil, 
RellsResource Rel(2} WindParami}; 
MoveWindow(1,46.gFenTrous); SizeWindow(225,153,gFenTrous); 
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Les ressources du squelette 


(Le Resource Manager, deuxième partie - Gü) 


Bernard Fournier 


Dans ToolBox Mag 2, nous avons commencé l'étude des ressources en apprenant à désassembler 
un fichier ressources à l’aide de l'utilitaire DEREZ fourni avec APW; ou mieux, avec GENESYS. 
Dans cet article, nous allons voir comment sont constituées les ressources et leurs emplois afin de 
faciliter la programmation, et enfin comment utiliser au mieux les manuels de référence (en l'oc- 
currence le volume 3 de la ToolBox Reference {TBRef 3], les librairies du langage employé [par 
exemple TML//] et la librairie Types.Rez). 


Avant de poursuivre plus avant, je rappelle les différences fondamentales entre la création d'un fi- 
chier de ressources et la création d'un source de ressources. 

À l'aide de Genesys, vous créez aisément vos ressources: pour cela le mode d'emploi du logiciel est 
suffisamment explicite. Cependant, le programmeur Apple // GS est souvent atteint d'une mala- 
die incurable: la “décorticomanie”. En effet, il ne lui suffit pas de créer ses ressources avec un logi- 
ciel, certes très performant, mais il veut savoir “comment” et “pourquoi”, Il ne faut pas croire que 
ce souci relève de la psychiatrie; il s'agit bien au contraire d'une démarche on ne peut plus nor- 
male. On ne peut maîtriser pleinement un sujet (ici la programmation) que si on en connaît parfai- 
tement tous les constituants et tous les mécanismes à mettre en oeuvre. 

De plus, Genesys ne permet pas de construire un texte formaté (c'est à dire un texte comportant des 
codes de mise en page: style, taille, couleur et format des caractères). On est donc amené à savoir 
construire ses ressources “à la main”: c'est à dire à savoir créer un source compilable avec REZ. 
J'insiste beaucoup sur cet aspect de la programmation des ressources, car bien des difficultés pro- 
viennent de la méconnaissance de la constitution des ressources. 


Dans cet article nous allons analyser certaines ressources: StartUpTools, rMenuBar, rMenultem et 
rPString qui nous permettront de comprendre la constitution d'une ressource et donc de pouvoir 
ultérieurement définir les nôtres. 


Nous allons pour cela créer ce que l'ami Uhrich appelle un squelette: une mini-application, qui ne 
fait rien du tout, mais qui constituera un cadre dans lequel rentrer vos applications “réelles”. 
J'espère vous convaincre que, grâce aux ressources, vous pouvez vous permettre d'écrire un 
programme vraiment squelettique: en quelques lignes, vous créez une application complète. 


Sur la disquette ToolBox Mag 3, vous trouverez le listing complet de ces ressources (fichier App- 
Mini.S) compilable avec REZ: compile AppMini.S keep=AppMini.R. Le source de l'application en 
TML (fichier AppMini.P) est à lier avec le fichier ressources AppMini.R avant compilation. 
Consultez également les sources relatifs à PIC MASTER.GS parus dans TooÏBox Mag 2, en particu- 
lier LoadSavePic.S qui est le listing exhaustif des ressources employées. 


La ressource SfarfUpTools StartUpToolst 


UE n erlD, identifiant retourné par 
Toute application DeskTop utilise des appels à — (ue tte J" 


la ToolBox. Afin que ces appels se fassent cor-| SiariStopRefDesc, [type de la référence stockée 
rectement, il faut au préalable désigner les Tools dans StartStopRef : 

qui seront utilisés. L'initialisation des Tools se - : référence par un Pointeur 

fait avec la fonction StartUpTools: cette fonction - A: référence par un Handie 


F 5 ‘ - 2; référence par un Identifiant ressource ] 
admet trois paramètres en entrée (voir TBRef 3 StariStopRef): { référence à la siructure 


page 51-18): contenant la liste des outils } 
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La liste de nos outils étant stockée sous forme de 
ressource, on va donc avoir un appel comme 
suit: 


£StartStopRef:=StartUpToois(MemorvID, 2, Ref{1}): 
ou encore en utilisant des constantes: 


gStartStopRef:=StartUpToois(MemoryiD, 

ReflsResource Ref{kStartStopResID)); 

e MemoryiD: un entier retourné par la fonction 
MMStartUp 

 ReflsResource: constante égale à 2 définie dans 
la librairie TYPES de TML 

e kStartStopResID: constante égale à 1 définie 
dans les CONST en en-tête du source et en cor- 
rélation avec l'identifiant de la ressource rTool- 
StartUp. 

e gStartStopRef: référence sur la table des outils 
initialisés. Cette référence sera employée dans 
ShutDouwnTools au moment du QUIT. Le type 
de cette référence est déterminé par le type de 
Start StopRefDesc: 


StartStopRefDesc  gStariStopRef Valeur 
pointeur pointeur 
handle handle 1 
ResiD handle 1 


Ayant employé une référence par Identifiant 
ressource, la référence retournée par SfartUp- 
Tools est donc un handle: dans la fonction Shut- 
Deum Tools on va donc écrire: 


ShutDownTools(1 ,eStariStopRef); 
ou mieux: 
ShwDownToois(RefisHandie, gStartStopkRef), 





Il faut également définir la ressource rToolStar- 
tup dans le fichier compilable par REZ. Consul- 


tons le TBRef 3 page E-69: 

resource rToolStartUÜp (Identifiant, attributs} 
fflag, {l toujours 0 
videoMode, |! mode graphique QuickDraw 
resFilelD, !! positionné par StartUpTools 
dPageHandie, !! positionné par SiartUpTools 
numToals, {! nombre d'outils employés 
toolArray): {| liste des outils 


La liste des outils à passer dans ToolArray étant 
constituée comme suit: 


{toolNumberl, minVersionl; !/ n° d'outil et version 
(/ de l'outil 
{...) 


toolNumber2, minVersion2) 


Note: le n° de version permet de vérifier si l'outil 
se trouvant sur le système de boot est bien en 
conformité avec les fonctions employées. En ef- 
fet, les outils évoluent au fil du temps: des fonc- 
tions nouvelles sont implémentées, des correc- 
tions sont parfois effectuées. il faut donc être 
sûr que l'utilisateur dispose des outils que l'on a 
utilisés pour développer l'application. Si la ver- 
sion de l'outil employé est inférieure au numéro 
indiqué dans minVersion, la fonction SfartUp- 
Tools retourne une erreur; le programmeur doit 
tester si une erreur est générée par Start UpTools, 
et dans ce cas forcer le programme à quitter (et 
éventuellement afficher un message signalant 
l'erreur). 
En TML, on fera donc un test sur _ToolErr im- 
médiatement après l'initialisation: 
eStartSiopRef:=StartUpToois(…); 
if_ToolErr= NoError then 

begin 

… code de l'application. 

end; 
ShutDownTools(…..); 


| Revenons à l'examen de la ressource ”ToolStar- 


tUp. En examinant la librairie Types.Rez, on 


es| constate que la ressource rToolStartlip est défi- 
Se: nie comme suit: 




















] (flags, resFilelD et dPageHandle) ou calculés 


: type rToolSrartUp 


{integer=0;  {! flag toujours égal à O0 

integer Mode320=0, Mode640=$80; {| mode de 
if résolution QuickDraw 

integer =0;  WresFilelD 

longlnt =0; 4! dPageHandle 


integer =$$countofiToolRecs); {! nombre d'outils 
array ToolRecs{ 


integer; U numéro d'outil 
integer, dversion minimum 
}; 


:| En examinant cette définition de type, on cons- 


tate que certains paramètres sont pré-définis 
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Les Attributs d'une ressource 


À chaque ressource est associé un attribut, définissant la manière dont la ressource sera utili- 
sable. Le Resource Manager stocke cette information dans le champ resAftr de la structure de la 
ressource. Il existe trois fonctions permettant d'éditer/modifier cet attribut: 

- GetResourceAttr 

- SetResourceAttr 

- MarkResourceChange 
La plupart des attributs définissent la manière dont la ressource sera stockée en mémoire lors de 
son chargement et sont en liaison directe avec les indicateurs de NewHandle du MemoryMana- 
ger. L'attribut est un entier (deux octets) dont chaque bit renseigne le ResourceManager sur la 
manière dont la ressource sera gérée, Voici la liste de ces attributs: 


- AttrLocked bit 15 mémoire non verrouillée 

mémoire verrouillée (Move et Purge interdits} 
mémoire non fixée 

mémoire fixée (Move interdit) 

pas de routine de conversion 

emploi d'une routine de conversion 
chargement en mémoire libre 

chargement à une adresse spécifique 

purgé de niveau 3 

purge de niveau 2 

purge de niveau 1 

purge de niveau 0 

ressource modifiable 

ressource non-modifiable 

ressource non chargée lors d'OpenResourceFile 
ressource chargée automatiquement lors d'OpenResourceFile 
ressource non modifiée en mémoire 

la ressource a été modifiée en mémoire 
chevauchement de banc autorisé 
chevauchement de banc interdit 

mémoire spéciale utilisable 

mémoire spéciale non utilisable 

pas d'alignement mémoire 

alignement mémoire requis 


- AttrFixed bit 14 
- ResConverter bit 11 
- ResAbsLoad bit 10 


- AttrPurges bits 9-8 
- AttrPurge2 bits 9-8 
- AttrPurgel bits 9-8 
- AttrPurgel bits 9-8 
- ResProtected bit 7 


© = 


-o-0-o-c-s-0825=-s-c-s-s 


- ResPreload bit 6 
- ResChanged bit 5 
- AttrNoCross bit 4 
- AtrNoSpec bit 3 


- AttrPage bit 2 


Lorsqu'on définit une ressource, on à vu que sa définition se faisait sur le modèle: 
resource resTypetresiD, attribut) 


Afin de spécifier l'attribut, on a deux possibilités: soit on indique la valeur (ex $C018), soit on in- 
dique les mnémoniques: 


resource resType(resID, $COIS8) 
ou alors 
resource resType(Restd, attrLocked, attrFixed, attrNoCross, attrNoSpec) 


Par suite d'une lacune, ces mnémoniques ne sont pas disponibles dans Types.Rez; il convient 
donc de les définir soi-même (employer alors Types.Rez.Aux fourni sur la disquette ToolBox Mag 
2 avec une directive du type #include “préfixe d'accès à Types.Rez. Aux"), 


(numTools); et que seuls certains autres sont à !! voir encadré pour la signification 
définir par l'utilisateur (videoMode, Tool Number {{ de l'attribut $0 


ur (oi {mode640, 
et minVersion). Ceci signifie que dans notre {3,$300, 


source de ressource, on n'aura qu'à passer les |") 
paramètres utilisateurs en respectant leur format 34 go] 


(ici ce sont tous des entiers). } 
Ceci donne donc: et on définit en tête du source la constante 
resource rToolStartUm{Tool Sartup_ Table, $0) Tool_Startup_Table: 
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#define Tool Startup Table $1 


l..J 
D'une manière générale, un fichier source de a son 
ressources est constitué comme suit (les // en !l liste des définitions des Types 
début de ligne permettent d'inclure des com- resource ResTypelResidentifiant, attributs) 


mentaires dans un source REZ): {liste des paramètres}, 


il exemple standard de fichier REZ 
#include “préfixe d'accés à la librairie Types.Rez" Chacune des ressources système (c'est à dire les 
{{ liste des définitions des identifiants, ressources définies par Apple) est commentée et 
!! classés par Types de ressources détaillée dans le chapitre E du TBRef 3. Lister 
#define Resldentifiant! Constante! également la librairie Types.Rez ainsi que son 


: Pascal: ORCA ou Compter Pascal anciennement TM Pascal / / ?: Hi 
3) eC APW ou ORCA tu 


dd RE ES 4 
#  - ASM: Prog raming ie | 
+ Pascal: Topiques Pasel(par John Colibri. Menemods ie Me 
RE nottnbante Riche Mason: BA CHINE (RE 


tes ne “as le: pie IR. Libres ste Types Rez et 
in srl disquene ToolBox May : 2. 14 
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complément Types.Rez.Aux (sur la disquette 
ToolBox Mag 2) afin de connaître les constantes 
employées et les paramètres pré-définis pour 
chaque type de ressource. 


La ressource rMenuBar 


Autre exemple de constitution de ressource, la 
rMenuBar qui va permettre d'élaborer la barre 
de menus. Cette ressource va nous montrer 
comment référencer des ressources dans une 
ressource. 

rMenuBar: type $8008 (lire TBRef3 page E-55) 
définition de la ressource $8008: 


resource rMenuBar(Identifiant, attributs) 


{{version, {toujours à 0 
menubar flag, {{ type des références aux menus 
menuRefArray}; {liste des menus associés à la barre 


Consultons le fichier Types.Rez: 


1ype FrMenuBar 
{intéger =0; 
intéger = 58000; 
array (longlat;); 
longlnt =0:;}; 


{lioujours à Q 

(l'iype des références aux menus 
{l'table des référenves aux menus 
terminaison: toujours 0 

Que constate-t-on? Les seuls paramètres à indi- 
quer seront les références aux menus; ces réfé- 
rences étant des identifiants de ressource (68000 
= 100 000 000 000 000 binaire; les bits 15-14 étant 
à 1-0, les références se font par identifiant de res- 
source comme indiqué dans TBRef3 page E-55). 


Concrètement, on définira notre ressource rMe- 
nuBar de la manière suivante: 


“define App Menu Bar S1 
#define Apple Menu $} 
ffdefine File Menu 52 
#define Edit Menu 83 
resource rMenuBar(App MenuBar, $CO18} f! voir 
encadré pour la signification des 
il attributs $COIS 
{Apple Menu, 
File Menu, 
Edit Menu, 
fi 
Cette ressource fait appel à d'autres identifiants 
de ressources (les menus), il convient donc de 
les définir: 


Les ressources dans les ressources 
Ressource rMenu: 
rMenu: type $8009 (lire TBRef3 page E-52) 
Définition de la ressource 58009: 


resource rMenutldentifiant, attributs) 


{{version, {l toujours à 0 
menulD, {n° d'identifiant du menu 
menuFlag, type d'affichage du menu 


menuTitleRef, !l! référence au nom du 
l! menu {une chaîne) 
üemkRefArray); !! liste des items associés au menu 


Consultons le fichier Types.Rez: 


Lype rMenu 


finteger = 0; {toujours 0 
















integer, l'identifiant du menu 
integer: f{ type du menu 
longint, f{ référence à la chaîne de titre du menu 


array {longint:); 4 liste des items 

longint =0,}; l{ terminaison: toujours 0 
Avec cette ressource, tous les paramètres (à l'ex- 
ception de la Version et de la Terminaison) sont 
à définir par l'utilisateur: 


exemple avec le menu File: 


resource rMenu(File Menu, SCO18) { voir encadré 
f! pour la signification des 
ft attributs SCOIS8 


(52, fl identifiant du menu FILE 
$A008, f type du menu 
File_pString; fl référence à la chaîne titre 


{Open Menu em, f liste des items 
Close Menuliem, 
Quit Menu Tiem),] 
Le type du menu ($A008 où 1 010 000 000 001 000) 
signifie: 
+ bits 15-14 à 1-0: référence sur le titre par un 
identifiant de ressource 
+ bits 13-12 à 1-0: références sur les items par 
identifiants à des ressources 
+ bits 11-9: toujours à O 
« bit 8 à 0: pas d'appel à un CustomMenu 
+ bit 7 à D: menu sélectionnable 
+ bit 6 à D: toujours à 0 
e bit 5 à (: inversion lors de la sélection sans uti- 
liser XOR 
« bit 4 à Ü: menu standard 
+ bit 3 à 1: menuCache permis (un menu dérou- 
lé une fois est “photographié""en mémoire ce 
qui permet de l'afficher instantanément la fois 
suivante) 
« bits 2-0: toujours à 0 


Ressource rPstring 


Le titre de ce menu est défini par un identifiant 
à une ressource de type rPString. 
rPString: 1ype 58006 (page E-59 du TBRef3) 
définition de la ressource $8006: 


rPString (identifiant, attributs) 
{lengthBvte, #'ociet de longueur de la chaîne 
stringCharacters:}; les octets de la chaîne 


consultons Types.Rez: 
type rPString {pstring:} # chaîne pascal 


ce qui nous donne: 
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resourcerPString (File _pString, 8COI8) |! voir encadré 
{{ pour l'attribut 
{" Fichier “); 


Ressource rMenultem 


En ce qui concerne les Items, on va utiliser des 
ressources rMenultern: 


rMenulrem: type $800A (TBRef3 page E56) 
définition dans Types.Rez: 


type rMenultem 

{inieger = 0; !! toujours O 

integer;  {! identifiant de l'item 

char; il équivalent clavier 

char; {autre équivalent clavier 

integer,  {} caracière à afficher pour les items cochés 

integer,; type de l'îtem 

longint;]; N référence à la chaîne du nom de l'item 
Les paramètres à passer sont aisément compré- 
hensibles depuis que nous avons analysé les res- 
sources rMenu et rPString, aussi je ne m'éten- 
drai pas plus sur le sujet (voir bien entendu 
TBRef3 page E-57 pour plus amples informa- 
tions). 


Exemple avec l'item OPEN; 


#define Open Menu Item $102 
#define Open_String $102 
resource rPString(Open_ String, SCOIS) 

(‘Ouvrir’); 
resource rMenultem(Open Menu Item, $CO18) 

{$102, 

LL At AR 

nil, 

$8040, 

Open String}; 
Remarque: l'identifiant du Menultem et de la 
chaîne associée ont été tous deux mis à $102. En 
fait, on peu très bien utiliser des valeurs diffé- 
rentes: le Menullem référence un identifiant 
Chaîne de valeur quelconque. Mais dans un 
souci d'homogénéité, il est plus confortable 
d'avoir des identifiants semblables. 


J'espère que cet article vous aura permis de 
mieux comprendre comment sont constituées 
les ressources. Au vu de leurs mécanismes, vous 
en saisirez mieux l'importance dans la program- 
mation. Dans le prochain numéro de ToolBox 
Mag, nous verrons deux points: la création de 
ses propres types de ressources et la modifica- 
tion en mémoire ou sur disque d'une ressource. 


Soundtrack Tool, suite (GG) 


Il y avait quelques bugs dans le Tool219, merci 
à Anthony Cassaigne de les avoir signalés, Voi- 
ci donc la version 1.1 du SoundTrack Tool, à 
jour pour SoundSmith 0.95b. Remplacez donc, 
dans votre catalogue /SYSTEM/TOOLS, la 
version 10 par celle du catalogue 
/TOOL219.V.1.1. 

À noter: une version différente du Tool219 est 
également présente sur la disquette de Sounds- 
mith 0.95b. A vous de voir quelle version vous 
préférez utiliser, Mais attention: dans les deux 
cas, si vous voulez diffuser cet outil dans vos 
productions, réglez d'abord les questions de 
droits, soit avec ToolBox Mag, soit avec Hui- 
bert Aalbers (SoundSmith n'est pas dans le do- 
maine public). 

Anthony Cassaigne et Yvan Kænig nous ont 
écrits les interfaces pour divers outils de pro- 
grammation. Dans le  sous-catalogue 
/TOOL219.V.1.1, vous trouverez donc les fi- 
chiers suivants: 


/TOOL219.V.1./SOURCE.MERLIN/TOOL219.5: c'est le 
source Merlin du Tool219, par Olivier Goguel. 
/TOOLZ219.V.LLHELP.MERLIN/SOUNDTRACK: fi- 
chier de Help pour Merlin, par Anthony Cas- 
saigne. 
/TOOL219.V.L1/MACROS.APW/M16.SOUNDTRACK: 
fichier de macros pour l'Assembleur APW/Or- 
ca, par Anthony Cassaigne. 
/TOOL219.V.LI/MACROS.MERLIN/TOOLBOXMACS.S: 
fichier de macros pour Merlin, par Yvan 
Kœænig. A noter que ce fichier contient les deux 
types de macros Merlin (macros normales et 
“’super-macros”), et qu'il inclut aussi les ma- 
cros pour l'outil “Juke-Box” de Stephan Hadin- 
ger paru dans notre numéro 1. 
/TOOL219.V.1LH/NIFTY.LIST/NLIST.DATAZ: texte à 
couper-coller, selon les instructions données au 
début du fichier, dans le fichier NLIST.DATA 
de Nifty List, par Anthony Cassaigne. 
/TOOL219.V.1.1/ ORCA.DISASM/DISASM.DAT A2: texte 
à couper-coller, selon les instructions données 
au début du fichier, dans le fichier DIS- 
ASM.DATA d'Orca Disassembler, par Anthony 
Cassaigne. 


Merci à tous ! 
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GS News 


Eric Weviand () 


Ce qu'il faut savoir 
Le 22 à Asnières 


Curieux de connaître le délai d'ache- 
minement par les PTT d'un numéro de 
ToolBox Mag, je me suis abonné. Ex- 
périence intéressante: j'habite à 20 mi- 
nutes de ToolBox; ma revue postée le 
4 décembre d'Argenteuil a mis 15 
jours pour trouver ma boîte à lettres 
(reçue le 20 décembre). Certains abon- 
nés lointains (Ile de la Réunion) ont, 
semble t-il, eu plus de chance. Nous 
étudions la possibilité de poster depuis 
là-bas. 


Incider / A+: 
changement de politique 


Le magazine américain dans son nu- 
méro de décembre 1990 fait sa cou- 
verturé sur lc Macintosh LC. D'après 
l'éditorial de Dan Muse, le Rédacteur 
en chef, la revue s'oriente maintenant 
sur les ordinateurs de la gamme Apple 
IT et Macintosh; l'Apple I continuant 
à être le principal centre d'intérêt d'In- 
cider / A+. Il précise à ses lecteurs que 
la revue s'efforcera de montrer com- 
ment l'Apple II et le Macintosh peu- 
vent travailler et communiquer en- 
semble, 

Cette ligne correspond parfaitement 
aux idées d'Apple en la matière (voir 
dans le numéro précédent les extraits 
de la lettre ouverte de John Sculley). 
L'Apple II et le Mac sont effective- 
ment des machines complémentaires, 
particulièrement grâce au réseau Ap- 
pleTalk. 

Si vous voulez savoir par exemple sur 
quelle machine est réalisé ToolBox 
Mag, ch bien il est réalisé sur un ré- 
seau AppleTalk. La pièce principale 
de ce réseau est une LaserWriter 
Apple, on y trouve également, en péri- 
phérique, divers ordinateurs Apple 
(GS et Mac), quelques ImageWriters, 
des lecteurs SCSI Syquest, des lec- 
teurs 800k, etc. 

À part quelques confusions (“certe 
cartouche-là, c'est pour le Mac, pour 
le GS, ou pour la Laser?") et quel- 
ques conflits (“gui c'est qui a encore 
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renommé la Laser pour se la bloquer 
pour lui tout seul?"), tout Ça tourne 
suffisamment rond pour faire votre 
magazine préféré. 

De plus en plus de programmes sont 
communs Mac/GS: le Système, Hy- 
perCard..; les périphériques sont les 
mêmes: imprimantes, disques durs, 
lecteurs de disquettes, de cartouches, 
de CD-Rom, scanners, etc. Au prix où 
sont aujourd'hui les Mac Plus d'occa- 
sion, voilà des périphériques bon mar- 
ché du GS. 


Complete Technology: 
Mises à jour 


TML Systems ayant vendu les droits 
de ses produits Apple IT (entre autre 
TML Basic el TML Pascal, voir Tool- 
Box Mag 2) à Complete Technology, 
les utilisateurs des produits TML se 
demandaient s'ils continueraient à re- 
cevoir les mises à jour. 

La réponse est oui, mais pour bénéfi- 
cier des offres d'upgrades ou d'up- 
dates, il faut payer à Complete Tech- 
nology un "droit d'entrée”: 519.95 
pour TML Basic, $29,95 pour TML 
Pascal. Pour les détails pratiques, voir 
Compiete Technology. 


System 5.03: compléments 


Une des améliorations “visibles” se s1- 
tue dans le Standard File que les appli- 
cations utilisent pour sélectionner les 
fichiers; au niveau du choix du vo- 
lume, au lieu d'utiliser la touche Tab 
ou le bouton DISK pour passer en re- 
vue tous les volumes en ligne, il y a 
maintenant un bouton VOLUMES qui 
affiche la liste de tous les volumes en 
ligne. Il suffit simplement d'ouvrir le 
volume qui vous intéresse, et d'y utili- 
ser ce que vous y recherchez. Cela est 
très pratique pour les utilisateurs ayant 
des volumes à accès plutôt lent (CD 
Rom ou serveur AppleShare}. 

Notons aussi que le Standard File 
fonctionne maintenant “à la Mac”, 
mais de façon encore plus intelligente: 
si vous introduisez une disquette pen- 
dant que le Standard File est actif, non 
seulement il la reconnaît, mais encore 
il se place automatiquement sur le ca- 
talogue principal de cette disquette. 
Regardez cela de près avec le Traceur 
de ce numéro. 

En revanche, le 5.03 ne contient pas le 
driver annoncé pour les imprimantes 
HP: constatant que les drivers de Vi- 


tesse (Harmonie) et de Seven Hills 
{Independance) étaient meilleurs que 
le sien, Apple a volontairement renon- 
cé au sien, pour éviter que son driver 
“gratuit” ne freine la vente de produits 
commerciaux externes meilleurs. 
Comme quoi, s'il est (comme tous les 
autres) capable du pire, Apple (et pas 
les autres) reste capable du meilleur: 
bravo Apple pour ta sportivité. 


Système 5.03: Comment 
se le procurer? 


Très facile: achetez Platinum Paint! 
Vous aurez alors une version limitée 
du système, Tout le monde n'a pas la 
chance d'être développeur et de rece- 
voir à domicile un compact disque 
contenant le système 5.03 et Hyper- 
Card GS. En fait, ce système ne sera 
pas commercialisé (il a été retiré de la 
vente); il vous faudra attendre le sys- 
tème 5.04 (HyperCard GS devrait être 
livré avec le 5.04), Pour la francisation 
de ce nouveau système, et d'Hyper- 
Card, consulter Apple France. 


Laser Computers: 
nouvelle machine? 


La société américaine travaille sur un 
compatble Apple portable. La compa- 
gmie cherche un partenaire financier 
pour lancer la production. 

Laser Computers voudrait commercia- 
liser un équivalent de son compatible 
PC 4 MS-DOS: cet ordinateur por- 
table intègre dans ses roms un système 
d'exploitation et un logiciel d'applica- 
ion, 


Skeleton Desktop Application 
(Sandy Mossberg) 


À l'origine publié par la revue Call 
Apple, Skelcton Desktop Application 
est maintenant disponible sur dis- 
quette pour les assembleurs APW et 
ORCA/M ainsi que pour les compila- 
teurs APW C et ORCA/C. Elle 
contient tous les articles écrits par 
Mossberg (format AppleWorks), y 
compris ceux qui devait sortir dans 
Call Apple. Le prix de la disquette est 
de 520. 


Duet (Cirtech) 


La société écossaise a décidé de repor- 
ter le projet Duet à une date ultérieure. 
La mise sur le marché des nouveaux 
Macintosh par Apple, qui a empêché 
la campagne publicitaire sur le GS 
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promise par Apple pour Décembre, a 
incité Cirtech à différer La fabrication 
de la carte Duet, qui techniquement 
est prête. Apple n'ayant pas une politi- 
que commerciale très claire vis à vis 
de l'Apple 1IGS, la production de la 
Duet est un trop gros risque. 

Si le Mac LC persiste à avoir du mal à 
s'imposer sur le marché de l'éducation 
américaine, il est fort probable que 
Duet reverra Ie jour avant les calendes 
grecques... 


Pénurie de jeux? 


Sur tous les micro-ordinateurs, on as- 
siste depuis quelques mois à une raré- 
faction du nombre de programmes de 
jeu. Les utilisateurs deviendraient ils 
sérieux? La balle verte d'Arkanoïd IT 
ne ferait elle plus recette? 

Pas du tout! Le marché du logiciel de 
jeu se porte de mieux en micux, mais 
pas sur micro-ordinateur. Peu à peu, 
les consoles de jeu sont en train de dé- 
vorer, dans le domaine ludique, les 
micro-ordinateurs. 

Dans ce domaine, Nintendo domine 
de très loin le marché mondial. Sur ce 
marché, il y a actuellement cinq cons- 
tructeurs: Nintendo (80% du marché 
mondial), Sega, Nec, Atari et Am- 
strad. 

Leur stratégie est simple: fabriquer 
des consoles de jeu en masse pour les 
vendre à vil prix , et vendre des car- 
touches de jeu à un prix confortable en 
n'oubliant pas qu'il n'existe que peu de 
phénomène de piratage sur les cons- 
oles (essayez donc de pirater sans cla- 
vier et sans disquettes! ). 

Ceci explique pourquoi Epyx, Cine- 
maware et Taïto ont arrêté leurs acti- 
vités dans l'édition de jeux sur micro- 
ordinateurs. John Brooks, 1 program- 
meur de Rastan, développe maintenant 
pour les consoles Nintendo. 

Cela pose une question de fond: l'or- 
dinateur personnel multi-fonctions, 
comme l'Apple II GS, a-t-il encore 
de l'avenir, face aux machines dé- 
diées à une application, ou à un type 
d'applications? 

Notre réponse, à ToolBox Mag, serait 
en gros celle-ci: il y a une place, et 


fast-foods. Mais il y aura toujours un 
bon paquet de gens (nous en sommes) 
qui aimeront la bonne cuisine: ceux-là 
continueront à aller au Restaurant, et à 
se faire la cuisine eux-mêmes, au 
moins en partie. 
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elle est en train de se révéler, pour les 


Le Hard 
Zip Chip GS: Précisions 


Il existe trois modèles de Zip Chip 
GS: 

-le modèle 1500 (Zip Chip GS}: vi- 
tesse 8 MHz avec 8 Ko de mémoire 
cache. Ce modèle n'est pas compatible 
DMA (Direct Memory Access). 

-le modèle 1525 (Zip Chip GSX): vi- 
tesse 8 MHz avec 16 Ko de mémoire 
cache. Ce modèle est compatible 
DMA. 

-le modèle 1600 (Zip Chip GSX 
PLUS): vitesse 8 MHz avec 16 Ko de 
mémoire cache. Ce modèle est compa- 
tible DMA. D'après Zip Technologies, 
un kit sera bientôt disponible pour up- 
grader le modèle 1600 à 12 MHz. 


(Applied) Ingenuity: 
support technique 


Après la fermeture de la société améri- 
caine, de nombreux utilisateurs de 
l'inner Drive se demandaient à qui 
s'adresser en cas de coup dur. 

Le nom du sauveur est Bill Heineman 
de Custom Software, Cette société ca- 
lifornienne commercialise depuis peu 
une carte d'extension mémoire el un 
modèle SCSI de l'Inner Drive. 


Le soft: les jeux 
Dragon Wars (InterPlay) 


Jeu de rôle, Dragon Wars donne la 
possibilité de reprendre les person- 
nages créés dans Bard's Tale 1, 2 ou 3. 
Comme toujours, la première chose à 
faire est de créer une vaïllanté équipe, 
en veillant à ce que les caractéristiques 
de chacun des personnages soient 
complémentaires. 

C'est certainement le meilleur jeu de 
rôle sur Apple IIGS après Dungeon 
Master, au point de vue des graphi- 
ques et des sons, mais aussi du point 
de vue de l'originalité du scénario. Au 
tout début du jeu, vous vous trouvez 
au purgatoire, d'où nul ne peut 
s'échapper. À vous de prouver le 
contraire! 


Le soft: les utilitaires 


HyperCard GS 
(Apple Computer) 


Non! Vous avez bien lu, ce n'est pas 
une farce! Ce n'est pas un poisson 


d'avril! Il existe, il marche à la perfec- 
tion (attention: système 5.03 et 1.5 Mo 
de ram obligatoire): HyperCard GS 
version 1.0 B21. 

HyperCard est ce que l'on appelle un 
produit hypermédia: cela signifie que 
l'on peut facilement créer, en deux 
coups de cuiller à pot, des pro- 
grammes ayant de l'allure, Il est facile 
de créer des cartes contenant des gra- 
phiques, d'y insérer du texte, d'y pla- 
cer des boutons de navigation qui 
créent des liens entre les différentes 
cartes; on peut compliquer le tout en 
ajoutant des sons digitalisés ou des sé- 
quences vidéo. 

Le langage de programmation Hyper- 
Talk permet pas mal de fantaisies. Il 
permet de créer des scripts: c'est un 
langage à part entière, proche du Pas- 
cal, qui donne un contrôle total sur la 
pile et les objets qu'elle renferme. 

Sur Apple 1IGS, il existait jusqu'à au- 
jourd'hui HyperStudio et Nexus, que 
l'on considérait comme des pro- 
grammes hypermédia. Ils sont mainte- 
nant dépassés! 

Au fait, la version Apple TIGS d'Hy- 
perCard a une grande supériorité sur 
celle du Macintosh, Vous ne devinez 
pas? Elle est en couleurs! La version 


- 2.0 d'HyperCard Mac ne sait toujours 


pas vraiment CE que C'est. 

Au passage, jen profite pour dire 
qu'HyperCard Mac n'est plus donné 
que sous forme de “Runtime” avec 
chaque Macintosh. La version com- 
plète d'HyperCard est un produit com- 
mercial ordinaire, diffusé moyennant 
finances par Claris aux USA, et par 
Apple en France. 

Comment se débarrasser de la concur- 
rence? Facile! Il suffit de donner pen- 
dant des années HyperCard pour blo- 
quer le développement d'autres pro- 
duits hypermédia pour, par la suite, 
une fois la disparition des concurrents 
constatée, vendre son produit sans en- 
combres. Quand je pense qu'on a osé 
parfois, aux USA, se plaindre du 
“dumping” des Japonais! 

Pour la version française d'HyperCard 
GS, comme pour sa commercialisation 
en France, à vous de voir auprès 
d'Apple France s'il en est capable, et 
pour quand. 

En pratique, l'utilisation d'HyperCard 
GS est identique à celle d'HyperCard 
Mac. Les deux logiciels sont des 
frères jumeaux! Il y a là, nul ne pourra 
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le nier, un formidable travail de déve- 
loppement de la part d'Apple USA, 
C'est dans un sens rassurant pour 
l'avenir de l'Apple IIGS, 

Une pile (c'est ainsi que l'on appelle 
les fichiers HyperCard) a été écrite sur 
Mac et sur GS pour faciliter les 
conversions des piles entre les deux 
machines: il s'agit d'HyperMover. 

Ne vous faîtes pas trop d'illusions: la 
traduction directe d'une pile Mac 
donne des résultats minables sur GS, à 
cause du manque de couleurs (et du 
manque de capacités musicales) des 
Macs pour lesquels HyperCard a êté 
conçu. 

L'intérêt de la chose est dans la possi- 
bilité de développer en parallèle, à 
partir de zéro, des piles pour Mac et 
GS, simultanément. 

Ne nous trompons pas, HyperCard est 
un produit de qualité (par exemple, 
l'aide en ligne est colossale) qui va 
pousser les utilisateurs à gonfler leur 
configuration: mais vous étiez préve- 
nus. 


Super Convert 
(Seven Hills Software) 


On se souvient de Jason Harper et de 
son programme SHR Convert, Il s'est 
aperçu que le shareware ne nourissait 
pas son homme, et a décidé de faire 
éditer commercialement une nouvelle 
version de son excellent programme 
de conversions entre de nombreux for- 
mats graphiques existant sur Apple Il 
et Apple HIGS, Macintosh, IBM, Atari 
ST, Amiga, Commodore 64/128... 


Your Word Box 
(Word Box Company) 


Programme éducatif américain; il faci- 
lite l'apprentissage de la lecture. Le lo- 
giciel est fourni Sur un CD-Rom et né- 
cessite au moins 1.5 Mo de mémoire 
vive. Cela permet l'utilisation inten- 
sive de dessins couleurs et d'accompa- 
gner les leçons de voix humaines digi- 
talisées. Chaque leçon est imteractive 
et a une durée maximum de cinq mi- 
nules. 


Copy I 9.1 
(Central Point Software) 


La version 9.1 du célèbre programme 
de copie est dispomible: des change- 
ments dans le fichier des paramètres 
de copie, mais je n'ai guère vu les in- 
novalions attendues... 
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Graphic Exchange 
(Roger Wagner Publishing) 


La nouvelle version de Graphic Ex- 
change {version 4.2) ne passe pas ina- 
perçue, En cffet, Graphic Exchange 
est maintenant une véritable applica- 
tion GS/OS avec menus déroulants, 
fenêtres, et surtout gestion standard de 
la mémoire, 

Rappelons que cet utilitaire permet de 
faire de la conversion entre les diffé- 
rents formats graphiques de l'Apple IT 
et du Macintosh. Il existe maintenant 
la possibilité de créer des procédures 
automatisant les conversions de plu- 
sieurs fichiers graphiques. Il est tou- 
jours possible de récupérer les images 
MacPaint. 

Inversement pour convertir les images 
GS sur le Mac, pas de problème, vous 
trouverez dans le package une dis- 
quette Macintosh (400 Ko!!) conte- 
nant une application de conversion à 
vous couper le souffle. 

Graphic Exchange est un utilitaire in- 
dispensable lorsque l'on manipule des 
images de tout {type (HGR, PrintShop, 
News Room, DHGR, MacPaint, 
SHGR, DSHGR...) 


My Paint (SaddleBack) 


My Paint est un programme de dessin 
conçu pour les très jeunes enfants. Le 
bambin n'a pas besoin de savoir lire 
pour dessiner avec My Paint. L'inter- 
face utilisateur a été longuement testé. 
C'est aussi un livre de coloriage: sur la 
disquette, vous trouverez 28 images 
dans lesquelles l'enfant pourra dessi- 
ner ct faire des coloriages; il est même 
possible d'ajouter des sons digitalisés, 


Independance 
(Seven Hills Software) 


Drivers pour les imprimantes Hewlett 
Packard Deskjet et Laserjet ou com- 
patibles (DeskJet Plus, DeskJet 500 et 
LaserJet IT P}. 


Harmonie (Vitesse) 


Drivers pour les imprimantes Hewlett 
Packard LaserJet, Deskjet, Paintjet, 
ainsi que pour 24 autres imprimantes 
matricielles série ou parallèle (la 
gamme des imprimantes EPSON est 
bien représentée: Epson MX&0, LQ, 
LQ 800...) 


Avec Independance et Harmonie, le 
problème des imprimantes non Apple 







































connectées à un Apple IIGS est main- 
tenant résolu, 


Deliverance (Vitesse) 


Deliverance est un utilitaire de répara- 
tion de volumes GS/OS. I à de plus 
des fonctions avancées dans la détec- 
tion et la prise en compte par le sys- 
tème des ‘bad blocks’. Il existe une 
commande pour la copie des fichiers, 
mais elle est d'une trop grande len- 
teur. 

L'éditeur de blocs de Deliverance est 
séduisant. On peut soit demander la 
lecture d'un bloc particulier, soit tracer 
un fichier {commande EDIT FILE). 
Les fonctions classiques sont bien en- 
tendu présentes: recherche d'une 
chaîne en Hexa ou en ASCII, com- 
mande pour désassembler… 

L'édition d'un octet est facilitée par la 
possibilité d'effectuer une opération 
logique directement en entrée (finie de 
jouer avec la calculette...): remplace- 
ment, addition, soustraction, négation, 
ET logique, OÙ inclusif, OÙ exclusif, 
NON logique, possibilité de jouer in- 
dividuellement sur les 8 bits d'un oc- 
tel, mise à zéro, décalage à gauche, 
décalage à droite. et cela sur un octet, 
un mot, un mot long où un double mot 
long. 

Le désassembleur permet de jouer sur 
la taille de l'accumulateur et des re- 
gistres d'index. Les changements ap- 
portés à un bloc peuvent être tempo- 
raires.… très précieux pour les mala- 
droits. 

Le nombre d'essais de lecture d'un 
bloc est paramétrable. 

La fonction EDIT FILE INFO est par- 
ticulièrement intéressante. Tous les 
paramètres du fichier sont indiqués et 
sont modifiables: Type, Type auxi- 
liaire, Type d'enregistrement (avec 
Pop-up Menu pour le choix), Pointeur 
clé, Bloc d'index, Nombre de blocs 
utilisé, Date et Heure de création, les 
différents bits d'accès sont indiqués 
(lock, invisible, lecture-écriture, bac- 
kup bit...). Tout cela pour la Data fork 
et la Resource Fork. 

À quoi sert donc qu'un éditeur de 
blocs ait l'interface “Desktop”, direz- 
vous? Le mode texte suffit largement 
pour. 

STOP! Vous alliez dire une bêtise: ça 
sent à copicr/coller et à couper/coller, 
bien sûr. Directement du bloc S3AF 
dans le traitement de textes d'Apple- 
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works-GS, et vice-versa, Ça n'est pas 
intéressant, ça? Deliverance plus com- 
plet que ProSel 167? à suivre. 


Disk Access 
(Seven Hills Software) 


Ce NDA permet de faire des manipu- 
lations sur des volumes ou des fichiers 
sans pour autant quitter l'application 
dans laquelle on travaille, Cela évite 
de revenir au Finder ou à ProSel 16 
(d'ailleurs un mini sélecteur est fourni 
avec Disk Access). Toutes les fonc- 
tions classiques sont présentes: Copy, 
Verify, Move, Check Drives, Rename, 
Eject, Delete, Erase, Initialize, New 
Folder, ltem Info. Il est aussi possible 
de rechercher un fichier (Find File) et 
d'afficher le contenu d'un fichier 
(Show File), 


Diversi Cache - Diversi Copy 
Diversi Key 
(Diversi Software) 














































La série des Diversi (programmée par 
Bill Basham) revient en force avec des 
versions qui fonctionnent avec le sys- 
ème GS/OS 5.0. 

Diversi Cache (version 3,0) s'installe 
dans le fichier ProDos et permet d'ac- 
célérer considérablement les accès dis- 
que. On peut régler la taille du cache 
et les lecteurs que l'on veut accélérer 
en utilisant un CDA qui s'installe au 
moment du chargement de ProDos. 
Diversi Copy (version 4.0) est une sé- 
rie de copieurs pour disquettes 5.25 et 
3.5.Une originalité: il est maintenant 
possible d'installer le copieur de dis- 
quettes 3.5 en accessoire de bureau de 
type CDA, ce qui est très pratique. 
Diversi Key permet d'ajouter des ma- 
cro-commandes à vos différents pro- 
grammes. 

Signalons aussi la présence de Diversi 
Hack (version 1.6b), un CDA qui per- 
met de passer en moniteur à tout mo- 
ment et de faire une hard copy de 
l'écran texte sur Image Writer. Person- 
nellement, je lui préfère The DeskTop 
Manager (TDM). 


Close View 
(Apple Computer) 


Cet accessoire de bureau (il s'installe 
en fait comme uné Init) permet 
d'agrandir le contenu de l'écran gra- 
phique. Le facteur d'aggrandissement 
peut être de 2, 3, 4, 6,8 ou 12. 

Il existe plusieurs équivalents clavier 
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pour connecter où déconnecter cet ac- 
cessoire, pour augmenter où diminuer 
le facteur de grossissement et pour in- 
verser l'affichage. Ces équivalents 
sont des plus utiles. vous compren- 
drez quand vous devrez trouver une 
case de fermeture ou un Pop-up Menu 
sur un écran graphique de 12 fois la 
taille normale. 

Je pense que vous avez compris que 
Close View est un outil qui facilite la 
manipulation de l'Apple IIGS pour les 
personnes ayant des problèmes de vue. 


Easy Access 
(Apple Computer) 


Série d'utilitaires clavier facilitant la 
manipulation du clavier et de la souris 
aux personnes ayant des difficultés à 
se servir de leurs deux mains. Easy 
Access permet aussi de déplacer le 
pointeur de souris de manière très pré- 
cise, 

Le programme est une Init: il fonc- 
tionne aussi bien sous P8 ou GS/OS et 
dans toutes les applications, Avec Ea- 
sy Access, il est par exemple possible 
de taper Pomme Control Escape en se 
servant d'une seule touche du clavier. 


Video Keyboard 
(Apple Computer) 


Cet accessoire de bureau donne la pos- 
sibilité de faire de la saisie sans avoir 
à utiliser le clavier, En cffct, il est pos- 
sible de taper sur un clavier graphique 
que ce soit du texte ou des touches de 
commande (Pomme Q - Pomme S...). 


Ces trois programmes: Close Vicw, 
Easy Access et Video Keyboard dé- 
montrent la capacité d'Apple à s'adap- 
ter aux marchés les plus délicats. 


The Ugly Duckling 
(ByteWorks) 


On sait que ByteWorks est le spécia- 
liste des langages sur Apple IIGS (la 
séric des Orca}: voici leur première 
contribution dans le genre éducatif. 
Mike Westerfield (le Programmeur de 
ByteWorks) a écrit ce programme 


pour sa fille, 
C'est en fait un programme éducatif 
permettant aux enfants d'apprendre à 
lire. Le logiciel raconte une histoire 
animée et la dit grâce à une voix digi- 
talisée: c'est l'histoire du vilain petit 
canard version américaine... 

Les softs: 

freewares / sharewares 


Ubu's Tile Editor 
(Pangea Software) 


Programme en shareware qui permet 
d'éditer et de créer des ‘tuiles’ de 8x8 
pixels ou des caractères. Ce pro- 
gramme est utilisé par Brian Green- 
stone pour la programmation de ses 
jeux. 


Sound Off (TFF Enterprises) 


CDev et Init qui permettent de modi- 
fier le System Beep (becp d'erreur) et 
de jouer une musique ou un son au 
moment du chargement de GS/OS. Ce 
programme est en Shareware. Atten- 
tion, à chacune de vos erreurs le cri de 
Tarzan peut retentir… 


Audio Zap (Ian Schmidt) 


Programme en shareware. C'est un uti- 
taire musical: edition d'un son, choix 
de la vitesse d'écoute, visualisation de 
l'onde, couper/coller, zoom, amplifica- 
tion, effet d'écho, inversion. Audio 
Zap permet aussi l'enregistrement, 

Il reconnaît les formats ASIF/SoundsS- 
mith, ACE, HyperStudio et binaire, Il 
gère les cartes SuperSonic, Sonic 
Blaster, Audio Animator ainsi que le 
circuit à digitaliser de HyperStudio. 
Audio Zap est un véritable studio 
d'enregistrement et de modification 
des sons obtenus. En prime, Audio 
Zap intègre un oscilloscope. 

L'option OPEN DISK permet de lire 
les disquettes n'ayant une structure de 
catalogue ProDos; l'auteur a pensé aux 
disquettes Nucleus, Space Harrier, 
Modulae, ECC Demo... que l'on peut 
maintenant piller très simplement. 

lan Schmidt est tout à fait fréquen- 
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table: il déconseille de se servir du 
Finder pour lancer Audio Zap. 


Write It 2.0 
(Ravenware Software) 


NDA écrit par C. K. Haun. C'est un 
petit programme de traitement de texte 
en shareware. Cet accessoire permet 
de prendre quelques notes sans quitter 
l'application dans laquelle on se 
trouve, 

Ce traîtement de texte est construit au- 
tour de TextEdit, Ses fonctions sont 
classiques: Edition, Recherche/Rem- 
placement, Changement de police, de 
style et de corps. La fonction Hi Bit 
Settings permet de jouer sur le bit de 
poids fort des caractères ASCII que 
l'on tape: on peut forcer ce bit à O ou à 
1 (pratique pour les gens utilisant 
Merlin). 

Write It a lui-même un menu Pomme; 
il est amusant d'appeler un NDA à 
partir d'un autre NDA. 


Tonight Sky 
(Air Ship Software) 


Programme en shareware. C'est un 





Fausse vierge 


Quelques lecteurs À 
nous ont fait re-Æ 
marquer qu'il était 
“plutôt cher de fac- ER 
turer 100F la dis- 
quete Bis, alors que À 
la disquette vierge À 
ne coûte pas plus de & 
5F". C'est parfai- 
tement exact. + 
Utilisée comme Ë 
disquette vierge, la # 
disquette 2 Bis 
nest pas seule- Ë 
ment un vol mani- Ë 
feste sur le prix, Ë 















c'est aussi une Ë 
tromperie sur la Ë 
marchandise: en # 
effet, cette dis- 






quette a déjà ser- 
vi, Elle n'est même # 
pas vierge: il y a Ë 
des programmes À 
dessus! 
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programme qui transforme l'Apple 
TIGS en planétarium, On peut visuali- 
ser le ciel dans son ensemble ou sélec- 
tionner une partie de celui-ci. Bien en- 
tendu, la position des planètes évolue 
en fonction de la date, 


A lire 
GS + (Ego System) 


Un nouveau magazine pour l'Apple 
IIGS. Etonnant! I! est constitué d'une 
revue papier et d'une disquette; son 
nom: GS +. 


Cours de C (Byte Works) 


Après le cours de Pascal (voir Tool- 
Box Mag numéro 1), voici le "Learn 
to program in C”, D'après Byte 
Works, la programmation en € à l'aide 
de ce livre est facile et amusante: vous 
apprendrez dès la première leçon à 
écrire un programme en mode desk- 
top, puis vous apprendrez à écrire des 
applications, des CDA et des NDA. 

Chaque leçon est constituée 
d'exemples de programmes, de pro- 
blèmes et des solutions à ces pro- 


Cette fois, il y avait un peu de place sur la disquette pour mettre nos “vraies È 
fontes ImageWriter” (sur cette notion, et sur l'utilisation de ces fontes, voir Tool- Ë 
Box Mag n° 1). é 


Dans le sous-catalogue /JYB.FONTES, vous trouverez une série de fontes appe- 
lée “’Saint.Denis” (eh non, Eric, toujours pas de fontes Argenteuil). Le dessin 
de ces fontes est inspiré de “Times”. Mais attention, contrairement au Times de 5 
la Laser, qui sert à imprimer le texte courant, Saint-Denis ne donne qu'un résul- 
tat médiocre dans les petites tailles (fontes 10/20). à 
Cette fonte donne de bons résultats pour faire des titres. J'écris couramment en À 
Bobigny 12, avec les notes en Bobigny 9 et les titres en Saint Denis. 


Vous en aurez la preuve avec les deux modèles de jaquettes de cassette audio 
(fichier PAO AppleWorks-GS), que vous trouverez dans le catalogue /JA- E 
QUETTES.K7. : 
Le premier, intitulé “JAQ.COND.SUP”, est conçu pour être imprimé sur Image- Ë 
writer en modes Condensé (Condensed) et Qualité Supérieure (Better Text). Le Ë 
second est intitulé “JAQ.COND.50”, et il est conçu pour être imprimé sur 
Imagewriter en modes Condensé et Qualité Normale (Better Color}, mais avec Ë 
une réduction de 50% (cette seconde formule permet à Laurent Bourdin de À 
mettre plus facilement une image de la tête de Bob Marley). : 


Bien entendu, il faut pour cela que l'ensemble des fontes Bobigny de ToolBox É 
Mag 1, et l'ensemble des fontes Saint-Denis de ToolBox Mag 3, soient placées 
dans votre catalogue /SYSTEM/FONTS, 


Note: je me suis trompé à propos du vrai driver de LQ du système 5.03. Ce sont des À 
fontes de taille x 3, et non des fontes de taille x 4, qu'il utilise. Si vous avez une LQ, 
bon courage pour vous fabriquer ces fontes! 


JYB 





Fontes ImageWriter, suite () 


blèmes. Pour les gens qui n'aiment pas 
faire de la saisie, pas de panique, tous 
les sources se trouvent sur la disquette 
accompagnatrice, Le livre est fourni 
avec le compilateur ORCA/C. 


8/16 Central 
(Resource Central Inc.) 


La revue 8/16 cesse sa publication, Ce 
n'est pas une disparition, mais un 
changement de propriétaire et de 
forme de diffusion, C'est maintenant 
Resource Central Inc. (anciennement 
A2 Central (anciennement Open 
Apple)) qui édite 8/16 Central (an- 
ciennement 8/16). 8/16 avait pour Ré- 
dacteur en chef Ross Lambert. Le Ré- 
dacteur en chef de 8/16 Central s'ap- 
pelle Jay Jennings (il collaborait à 
8/16). 

La revue cesse d'avoir un support pa- 
pier et est uniquement constituée d'une 
disquette; cette forme de diffusion est 
adaptée car la revue compte seule- 
ment, de par le monde, un millier 
d'abonnés, Au niveau contenu, la re- 
vue reste une publication destinée aux 
programmeurs sur Apple [Eet IIGS, 
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Essai logiciel (“): 


Le tout dernier logiciel de dessin de Beagle Bros 
a déjà une longue histoire. Elle commence en 
Octobre 1986, avec la naissance de l'Apple IIGS. 
C'est à cette époque que l'auteur, Matthew Rei- 
mer, commence la programmation de ce qui al- 
lait devenir Platinum Paint. En 1988, Jem Soft- 
ware commercialise pour $25 MiniPaint, l'an- 
cêtre de Platinum Paint. 


Platinum Paint reprend les caractéristiques les 
plus puissantes de PaintWorks Gold, Deluxe- 
Paint IT et du programme de dessin PixelPaint 
du Macintosh IL Platinum Paint intègre des 
fonctions originales dont nous reparlerons plus 
loin... 


Configuration nécessaire: 

+ Apple IIGS couleur avec 1 Mo de mémoire 
vive 

+ Lecteur de disquettes 3.5" 

+ Système d'exploitation GS/0O$ (des bribes du 
système GS/OS 5.03 sont livrées avec Platinum 
Paint) 


Platinum Paint n'est pas protégé contre la copie. 
Vous pouvez l'installer sur un disque dur; le 
programme est au standard G5/0O$. 


Comme tous les programmes de dessin, Plati- 
num Paint va nous permettre de travailler au 
moyen d'une boîte à outils située à gauche de 
l'écran. Cette boîte à outils peut se placer n'im- 
porte où sur l'écran. 


Les outils permettent de créer différents objets et 
de sélectionner différentes parties de votre 
image en conjonction avec d'autres commandes. 


On se rend compte rapidement qu'un des points 
forts de Platinum Paint est la richesse qu'il offre 
dans les équivalents clavier et en fait dans la 
possibilité de tout faire par l'intermédiaire du 
clavier. En effet, le curseur de la souris se dé- 
place lorsqu'on utilise les flèches directionnelles; 
le click de la souris peut se faire avec la touche 
Return. On peut aussi choisir au clavier l'affi- 
chage des coordonnées cartésiennes du curseur, 
la couleur à utiliser, la taille de la brosse... On 
peut par la touche Esc masquer le curseur pour 
voir précisément ce que l'on fait. 
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Platinum Paint 


Eric Weyland 


Les touches Pomme, Option, Control et Shift 
ajoutent des options lorsque l'on s'en sert avec 
les outils. Ainsi, la touche Shift force un tracé à 
être parfaitement horizontal ou vertical. En 
mode 640, certains outils agissent d'une façon 
différentes selon que l'on se trouve en mode Di- 
ther ou non (En mode graphique 640, seules 
quatre couleurs pures sont disponibles. Le Di- 
thering est une technique utilisée pour obtenir 
16 couleurs à partir des quatre couleurs de base. 
Quand deux pixels de différentes couleurs sont 
côte à côte, ils sont considérés comme un pixel 
unique utilisant un mélange des deux couleurs). 


Les outils sont très classiques: le Marqueur, le 
Lasso, la Main, le Texte, le Pot de peinture, le 
Vaporisateur, la Brosse, le Crayon, la Ligne, la 
Gomme, le Rectangle, le Rectangle arrondi, le 
Rond, le Courbe, la Forme libre, et le Polygone. 
J'oubliais le fameux ‘Dropper' qui n'a pas d'icône 
dans la boîte à outils. On le sélectionne à partir 
du clavier, Je vous laisse lire la documentation 
pour savoir comment Cet outil permet de 
changer la couleur du crayon simplement en cli- 
quant sur un pixel du document. Le crayon 
prend alors la couleur de ce pixel. 


Les options associées aux outils sont très va- 
riées. 


Par exemple, lorsqu'on sélectionne une portion 
d'image avec le marqueur, il est possible d'ajus- 
ter la boîte de capture à la portion d'image sélec- 
tionnée. On peut faire une sélection en dehors 
de la fenêtre affichée à l'écran; c'est en fait un 
scrolling de La sélection: dans la plupart des 
autres programmes, la sélection ne peut se faire 
que sur une portion de dessin affichée à l'écran. 


En mode Lasso, on fait une sélection d'une par- 
tie d'image sans tenir compte de son fond. Ceci 
permet de récupérer facilement les dessins à 
formes complexes. Les pixels du dessin se trou- 
vant sous le Lasso peuvent être pris en compte. 
On peut aussi sélectionner la forme et son fond 
graphique. 


Dans le tracé des différentes formes (rectangle, 
cercle), on peut forcer l'absence de contour. Cela 
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n'est évidemment utile que pour les formes 
pleines. 


Toutes les formes que l'on trace peuvent être 
ombrées (y compris le texte et les lignes). 


Souvent, une fois une portion d'image sélection- 
née, on peut la transformer en utilisant les com- 
mandes de la barre de menus. Ainsi, il est tout à 
fait possible d'enlever ou de remplacer une cou- 
leur particulière, de faire de nombreuses distor- 
sions et transformations: retournement horizon- 
tal ou vertical, effet miroir horizontal ou vertical, 
réduction, agrandissement, choix de l'échelle. 
La commande Rotate permet de définir un angle 
de rotation pour la zone sélectionnée, l'effet 
Slant permet une déformation dans un sens 
simplement en tirant sur une des poignées de la 
boîte de capture, la commande Perspective per- 
met une déformation dans tous les sens. 


Dans Platinum Paint, on peut avoir quatre do- 
cument ouverts simultanément. Ils se placent 
alors dans des fenêtres différentes. Lorsque l'on 
charge une image, il est possible de la placer 
dans la fenêtre courante en remplacement du 
dessin qui s'y trouve. Sinon, une nouvelle fe- 
nêtre est ouverte. 


Au moment de la sauvegarde vous avez le choix 
entre le format Apple Preferred et le format SHR 
(fichier écran non compressé). Platinum Paint, 
c'est là une lacune importante, ne gère pas les fi- 
chiers graphiques de plusieurs écrans de large 
et de plus de deux écrans de long. 


Au niveau de l'importation des différents types 
de fichiers graphiques, Platinum Paint se dé- 
brouille plutôt bien. Vous avez la possibilité 
d'importer des images HGR, DHGR, PrintShop, 
PrintShop GS ou MacPaint (les images MacPaint 
doivent d'abord être converties au format Pro- 
Dos avec A.F.E.). 


Platinum Paint possède toutes les fonctions 
maintenant classiques d'un logiciel de dessin. 
On y trouve bien entendu des possibilités d'ani- 
mation (format PaintWorks Gold), la possibilité 
de fabriquer ses propres brosses à partir de 
n'importe quelle partie d'image (possibilité de 
sauvegarde), le zoom (effet de loupe), rotation 
des couleur, masques (protection d'une zone 
graphique ou de couleurs)... 


Les originalités de Platinum Paint sont nom- 
breuses. D'abord la gestion et la manipulation 
des palettes de couleurs sont séduisantes. Lors- 
que l'on édite une palette, on a toujours à l'écran 
une portion de l'image sur laquelle on travaille 
(avec une possibilité de scrolling), ce qui facilite 





grandement la localisation d'une couleur dans la 
palette. Diverses palettes de couleurs sont dis- 
ponibles: la palette par défaut (palette système 
utilisée au moment de la création d'un nouveau 
document), une palette constituée uniquement 
de nuances de gris, puis trois autres palettes 
(EarthTone, Rainbow et Pastels). De façon très 
classique, les couleurs sont modifiables grâce à 
des barres de défilement qui permettent d'ajus- 
ter les composantes Rouge, Verte et Bleue de 
chacune d'entre elles. Platinum Paint permet 
aussi d'utiliser le système HSV qui décompose 
une couleur en trois constituantes: Hue (en fran- 
çais teinte), Saturation, et Valeur système. La do- 
cumentation de Platinum Paint (au passage je si- 
gnale qu'elle est très bien faite) détaille le sys- 
tème HSV, Au niveau de la palette, on peut faire 
des couper/coller entre les différentes couleurs, 
les éclaircir, les foncer, ajouter du Rouge pour 
faire plus chaud (commande Warmer), refroidir 
en enlevant du Rouge (commande Cooler), faire 
des mélanges de couleurs. 


La gestion des masques est particulièrement 
bien réalisée. Un masque permet de protéger 
une zone graphique ou une (ou plusieurs) cou- 
leur(s) dans un document. Ainsi cette zone ne 
peut plus être modifiée (sauf si on supprime le 
masque). On peut ajouter au masque différentes 
zones graphiques puis les retirer, y ajouter ou 
enlever différentes couleurs, inverser le masque, 
faire clignoter le masque, supprimer le masque... 


Une page de brouillon (Spare Page) permet de 
faire d'importantes modifications sans avoir à 
faire des acrobaties dans les sauvegardes. Il est 
bien entendu possible de copier le document 
dans cette page de brouillon et inversement. 


Platinum Paint est le seul logiciel de dessin sur 
Apple IIGS à tracer des courbes de Bézier. 


Les commandes et équivalents clavier sont om- 
niprésents (très bon résumé en fin de documen- 
tation). 


En conclusion, outre les supériorités techniques 
de Platinum Paint sur ses concurrents Paint- 
Works Gold et DeluxePaint IL il est important 
de souligner que ces derniers ne sont plus suivis 
par leur éditeur. 

Platinum Paint tourne avec le système GS/OS 
sans aucune modification, on se rappelle les fan- 
taisies de PaintWorks Gold dans la gestion de la 
mémoire et l'allergie de DeluxePaint Il au 
GS/OS. 

Le seul manque grave de Platinum Paint est 
l'impossibilité de travailler avec des fichiers 
QuickDraw de taille importante. 
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Courrier des lecteurs 


reusement dû limiter mes activités en ce domaine | 
ces deux dernières années, pour des raisons 
d'études. Mon archaïque version d'APW refuse 
de lire certains fichiers de la disquette 
ToolBox Mag. Qu'est-ce qu'un fichier de “sto- 


Robert Santelli: Graphic Writer 3 a-t-il les 
lettres accentuées françaises comme Apple- 
Works-GS7? 


ToolBox Mag: Oui. Le Frinit et le Sys.Re- 


sources d'Yvan Kœnig de notre numéro 2, ainsi 
que notre article-tableau de ce numéro contri- 
buent à régler la question pour tous les pro- 
grammes “réellement GS”, comme Graphic Wri- 
ter 3 et AppleWorks-Gs. 


Robert Santelli: Comment faire un fichier A4 
de huit écrans avec la PAO d'AppleWorks GS? 


Toolbox Mag: Créez à partir de zéro un fichier 
“Page Layout” dans AppleWorks-GS. Passez 
dans le menu “Page Setup”, et choisissez 
“Condensé Vertical” et “Réduction 50%”. Re- 
gardez ensuite votre page: elle fait bien 2 écrans 
de large sur 4 de haut. Et pourtant elle s'imprime- 
ra sur une page Ad. 


rage type 57? 


ToolBox Mag: Deux ans, c'est beaucoup, sur 
GS, mais vous avez une excuse valable. Les “fi- 
chiers du cinquième type” sont des fichiers avec 
Data Fork et Resource Fork de GS/OS. Ils 
contiennent généralement des ressources. Voyez 
la documentation de GS/OS 5.02 français, le 
GS/OS Reference Manual, APW version 1.1, et 
surtout... ToolBox Mag pour les ressources. 


Robert Santelli: Plutôt que de photographier | qui 


l'écran, j'aimerais pouvoir gérer une vraie impri- | 


mante couleur, comme la HP PaintJet. Le GS le | eux fe 


mérite. 


ToolBox Mag: Voyez Vitesse (Harmonie) et Se- 
ven Hills (Independance). Ils vendent tous les 
deux les drivers nécessaires. Si vous avez une 
HP PaintJet, achetez les deux drivers, comparez, 
et faîtes un article pour ToolBox Mag, merci ! 


Norbert Thiébaud: Utilisateur 
d'Apple depuis plus de 7 ans, j'ai malheu- 


passionné BI 
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dise. : Merci d'en tenir complet Ée 
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